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SECTION 1 


1.0 INTRODUCTION 

The Space Shuttle Solid Rocket Booster Performance Evaluation Model 
(SRB-II) is made up of analytical and functional simulation techniques 
linked together so that a single pass through the model will predict 
the performance of the propulsion elements of a Space Shuttle Solid Rocket 
Booster. The flowchart given in Figure 1-1 shows each of the SRB-II 
modules and the various user controlled options. The available options 
allow the user to predict static test performance, Dredict nominal and 
off nominal flight performance, and reconstruct actual flight and 
static test performance, Options selected by the user are dependent 
on the data available. These can include data derived from theoretical 
analysis, small scale motor test data, large motor test data and motor 
configuration data. The user has several options for output format 
that include print, cards, tape and plots. Output includes all major 
performance parameters (Isp, thrust, flowrate, mass accounting and 
operating pressures) as a function of time as well as calculated single 
point performance data. 

This document contains Volume I of a set of four Volumes which describe 
SRB-II. Volume I contains the engineering description, Volume II con- 
tains the users manual, Volume III contains the samole case and 
Volume IV contains the Drogram listing. 

The engineering description of SRB-II contained in Volume I describes 
the basic approach used to develop each module. Sufficient detail is 
given to allow the reader an understanding of the engineering and 
programming fundamentals used, the function of each module, and the 
limitations of each module. Program limitations are dependent on the 
program option selected by the user. Limitations or restrictions 
that apply to a particular module will be a part of the Module 
Engineering Description. The three existing computer programs in- 
corporated into SRB-II (Boeing Internal Ballistic Computer Program, 

Lewis Thermochemical Computer Program, and One-Dimensional Two-Phase 
Flow Loss Computer Program) are not described in detail except as how 
they are used. The engineering description of these programs may be found 
in the References. 

In each of the following module engineering descriptions, the basic 
equations used in SRB-II will appear in the identical Fortran format 
used in SRB-II.. It is assumed that the reader is familiar with the 
standard fortran notation and no attempt will be made to define the 
notation in this document. Module engineering descriptions in Volume I 
follow the format of the Module program listings given in Volume IV. 
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SECTION 2 


2.0 


EXECUTIVE MODULE 


The Executive Module controls access to the comoutation modules so that 
a unified analysis of solid rocket booster performance can be performed. 
Since the Executive Module is a control routine, no computations are 
performed in the module other than accounting for the number of cases 
executed. The control options which the user may exercise are given in 
Volume II of this report. A list of subroutines and modules called by 
the Executive Module is given in Table 2-1, along with the paragraph in 
which detailed descriptions of each are found. 

TABLE 2-1: SUBROUTINES AND MODULES CALLED BY THE EXECUTIVE MODULE 


SUBROUTINE OR MODULE NAME 

PARAGRAPH NO. 

BATES 

4.0 

CDSI 

6.0 

DISP 

11.0 

FSCAL 

8.0 

IBM 

7.0 

INIT1 

2.2 

INPUT i i 

3.0 

OUTPUT 

12.0 

0UTTAP (Entry to OUTPUT) 

12.0 

PRESET 

2.3 

REC0N 

10.0 

SISCAL 

5.0 

EXECUTIVE MODULE ENGINEERING DESCRIPTION 

counter, NCASE, is initialized to 0 and 

Subroutine PRESET 


2.1 


— . . - . w , V. . , ^ . w . V*. I 1 XS W • VII V bliwil » C* I I JU I C 

values. PRESET is called only once during the program execution to 
set the fail-safe indicator values (Note that changes in these indicator 
values in any early case will be retained for subsequent cases unless 
updated). 

The Centralized Input Module, INPUT, is called in Statement 10 to read 
all input data from cards for the present execution case and transfer 
these data to disk. An initialization routine, INIT1 is then called 
to set initial values for parameters which are required to be reset in 
each case execution. 

The internal program indicator NPRINT is set to 1 to require the Output 
Module to list all initial values for the case to be executed. This 
initial print is generated by the Output Module in the call to OUTPUT. 
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2.1 


(Continued) 


The indicator MRECON is set to 0 for prediction and to 1 for recon- 
struction. If NRECON is greater than zero, a reconstruction analysis 
has heen requested and the program branches to Statement 100. At 
Statement 100 the print indicator NPRINT is set to 8 to indicate a 
reconstruction output format and the Reconstruction Module (RECON) 
is called to perform the analysis. ' ' 

The computed GO TO of Statement 20 allows the user to choose one of 

Sh»,«! r w2? 55 -S le r °?- eS th T gh the specific impulse and characteristic 
exhaust velocity scaling prediction portion of the program. Choice of 

wc??? Routes is controlled by the external input indicator NSI. For 
NS 1=1 the program branches to Statement 30 where the internal Drint 
indicaior NPRINT is set to 2 such that specific Impulse Scaling Module 
output format is generated by the Output Module. The Specific Impul se 
Scaling Module (SISCAL) is then called to calculate the End liem »tor 

vac *!f impulse and the characteristic exhaust velocity 

curve fit coefficients. 


mSdtmt 1 - 2 the P r °9 rarn branches to Statement 40 and the print indicator 
, p . RI f ^jet t0 3 su ch that Contractor Data Specific Impulse Scaling 
Module (CDS I ) output format is generated by the OutDut Module. CDSI 
is then called to calculate the characteristic exhaust velocity curve 
fit coefficients and the End Item motor delivered vacuum SDecific 
impulse. 


The program branches to Statement 50 for NSI=3 and the internal print 
indicator NPRINT is set to 4 for BATES Specific Impulse Module (BATES) 
output format. BATES is then called to calculate the characteristic 
velocity curve fit coefficients and the End Item motor delivered vacuum 
specific impulse. The variable ERR is set by the DATLOC subroutine 
called by the BATES Module. If ERR is .TRUE., the required data for 
a- BATES prediction was not included in the input data deck. For the 
condition ERR=.TRUE., the case is immediately terminated and the next 
case is initiated. 


In the case of NSI set to 4, the program branches directly to Statement 
60 and none of the specific impulse modules are executed. In any of 
these events ( NS 1= 1 ,2,3,4), the test at Statement 60 for a dispersion 
prediction (NDISP.EQ.O) is executed. A nominal prediction is generated 
in the case of NDISP.EQ.O and a test is performed at Statement 80 to 
determine whether the Internal Ballistics Module or the Thrust Scaling 
Module (FSCAL) is to be executed to perform a prediction. If the ex- 
ternal program input indicator NF is equal to 0, FSCAL is executed. For 
NF greater than 0, the Internal Ballistics Module (IBM) is executed. 

If NDISP.GT.O, NPRINT is set to 5 such that the dispersion print format 
is generated by the Output Module. The Dispersion Module (DISP) is then 
called to perturb the IBM input parameters for a dispersion analysis and 
the program proceeds as if a nominal prediction is to be made. 
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2.1 (Continued) 

Statement 110 to Statement 120 increments the executed case count, puts 
an End of File on the plot tape if this tape is reauested, calls OUTTAP 
to close out the data tape if this tape is generated, and ends the run 
by branching to Statement 120 when the specified number of cases have 
been executed. Statement 120 writes the successful completion message 
formatted in Statement 130. 

2.2 SUBROUTINE INIT1 ENGINEERING DESCRIPTION 

Subroutine INIT1 is used to initialize several variables used in the 
"INERT" Mass Module prior to initiating each data case. 

The first part of the subroutine sizes and locates the real and common 

variables used in the subroutine. The subroutine then sets the values 

of the consumed mass of inerts (MFINIT), inert mass flowrate (MTFZ), 
inert thrust contribution (FIZ), and delivered total impulse (AJTIN) 
to zero. The initial value of the inert mass remaining (MIZ) is set 
equal to the initial inert mass on board (MITOT) 

2.3 SUBROUTINE PRESET ENGINEERING DESCRIPTION 

Subroutine .PRESET is used to initialize several variables Uj their 
fail-safe values for a run. PRESET is called only once per run. 

Values which ape changed from their fail-safe values in any of the 
executed cases are not reset to their fail-safe values in subseouent 
cases. 

The first part of the subroutine sizes and locates the real and common 

variables used in the subroutine. The subroutine then sets each of the 

indicator variables to the values shown in the dashed line boxes in 
Figures 2-1 and 2-2. Each of these indicator variables will be assigned 
the value given in the Figures unless a value is input through the 
NAMELIST method as defined in paragraph 3.1. 
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SECTION 3 


3.0 CENTRALIZED INPUT MODULE 

SRB-II has a built in set of input data which includes all the data needed 
for program execution. The various input parameters for calculating 
solid rocket booster performance are contained in Subroutine BLOCK DATA 
and the program option indicators are contained in Subroutine PRESET. 

The Centralized Input Module uses Subroutine INPUT to override the data 
^Subroutine BLOCK DATA and PRESET with the NAMELIST method. Use 
ofjthe BLOCK DATA and PRESET subroutines in conjunction with the NAMELIST 
method minimizes the number of input data cards and avoids recompilina 
SRB-II when a data change is necessary. 

SR^-II options that require Subroutine LEWIS utilize the Centralized 
i niTf Module to read a special set of input data required for Subroutine 
LEWIS. Propellant chemistry data is read from a LEWIS data package of 
set format cards and the propellant thermodynamic data is read from a 
Lewis-Thermo-Data Tape. This tape is read with Subroutine SEARCH which 
is ia part of Subroutine LEWIS. 

I # 

SRB-II flight or static test reconstruction option requires a data tape 
as input. The Centralized Input Module reads this tape with Subroutine 


Th^ following paragraphs will describe Subroutine INPUT and GETDAT. 
Subroutine SEARCH is described in the available documentation for 
the Lewis Thermochemical Computer Programs Reference 1. 

3.1 SUBROUTINE INPUT ENGINEERING DESCRIPTION 

The statements after the subroutine name and before Statement 5 are 
variable location assignments, size, and type (floating-point or 
fixed) of variables, and the initialization of some variables. This 
section also contains the list of variables available in the INPUT! 
NAMELIST. 

Statements 5 through 35 transfer input data cards for a case to disk 
and print each card. The variable NOUT is the internal unit number 
(10) for the disk. The array A is a temporary working area to store 
the input card characters (80) until transferring them to disk and 
print. 

Statements between 35 and 30 contain the logic and write statements to 
output only the Internal Ballistics Module input data package on disk 
(internal unit NIB0UT=20) for the first case only. This IBM data 
package is written on disk for recall during subsequent cases. 
Statement 30 writes an end of file mark on the disk which contains 
all input data for a case. 
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3.1 (Continued) 

Statements 40 to 50 rewind the NOUT disk file, test if this is first 
case and writes an end of file on the IBM data package disk file 
(NIBOUT), and sets indicator NIBFLG if the IBM data package has been 
written on disk. 

Statements 50 to 70 searches for the CONTROL DATA PACKAGE on disk. 

When the proper identification card is found, the INPUT! namelist is 
read. If the proper identification card is not found, the program 
directs control to statement 110 and writes an error message, rewinds 
the disk unit NOUT, and returns control to Statement 5 to read in the 
next case, if available. 

Statements 70 to 80 searches the inout data file on disk for the 
types of DATA PACKAGES available. As each Dackage is found an 
indicator is set (e.g. NL=1 , NIDN=1 , and/or N1BM=1 ) . 

Statement 80 and the two statements ; foil owi ng are tests to determine 
if there is sufficient data available to run the type of case re- 
quested by the indicators set in the CONTROL DATA Package/ INPUT! 
namelist. If there is not_ sufficient data the program will direct 
control to Statement 130 and write an error message, rewind the disk 
unit NOUT, and return control to Statement 5 to read in the next case, 
if available. % 

Statements 90 through 100 generate a header (SPACE SHUTTLE SOLID 
ROCKET BOOSTER PERFORMANCE EVALUATION MODEL) and a title for the 
particular case. This information is written on a separate page, 
centered, and in an enclosed box surrounded by asterisks. 

The two statements after Statement 100 will rewind the disk unit 
NOUT and then returns control to the calling module which is the 
Executive Module (MAIN). 

The Statements 110 through 140 are the error messages explained 
above. 

The Statements 150 through the STOP statement will print a message 
that all input data cases have been completed and the program will 
end execution. Statement 150 is reached from Statement TO when an 
end of file mark is recognized in the input data card stream. 

3.2 SUBROUTINE GETDAT ENGINEERING DESCRIPTION 

The two statements after the subroutine name are variable location 
assignments, size, and type (floating-point or fixed) of variables. 

The next two statements are tests on program reconstruction time. If time 
is zero the subroutine will execute statements 10 through the return 
of statement 25. These statements rewind the reconstruction tape 
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3.2 (Continued) 

and position it at time equal zero on the tape. If the reconstruction 
time is less than zero an error message is printed by statements 90 
and 100 and the program stops. 

When reconstruction time is greater than zero, program control is 
directed to statement 50. Statement 50 reads ten parameters off the 
reconstruction tape. The next statement checks the first parameter 
ojff the tape, which is time, to see if it is equal to or greater than 
program time. If so, it executes statements 30 and 40, which is a 
1 ii near interpolation algorithm. The subroutine then executes a return 
If the time off tape is less than program time the subroutine executes 
the DO 60 loop storing the parameters off tape into array SAVE and 
then reads the next record off tape. If an end of file is found on 
the reconstruction tape an error message is pirnted by statements 
70 and 80 and the program stops. 
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SECTION 4 


4.0 BATES ISP MODULE (BATES) 

The BATES Isp Module computes the End Item motor vacuum specific im- 
pulse (SIDE) and characterise c exhaust velocity (CSTAR) using the Air 
Force devised Ballistics Test Evaluation Scaling (BATES) method described 
in Reference 2. The BATES system test procedure emoloys the use of 
a carefully designed solid propellant test motor. Propellant samples 
are prepared by the solid rocket motor contractor in separate cartridges 
which are subsequently loaded into a test motor. The motor is fired 
ina calorimeter capable of precise heat loss measurement. The BATES 
philosophy involves developing the End Item motor specific impulse 
by correcting the specific impulse derived from the BATES test motor. 

BATES Isp Module is selected as the method for calculating End Item motor 
vacuum specific impulse and characteristic exhaust velocity by setting 
N5I=3. The module uses the subroutines given in Table 4-1. 

TABLE 4-1: BATES ISP MODULE SUBROUTINES 


SUBROUTINE NAME 

PARAGRAPH NO 

ITIDNZ 

4.2 

DATLOC(IDNOZ) 

4.2 

LEWIS & LEWIT 

4.3 

IDNOZL 

4.4 

LESSQ 

4.5 

OUTPUT 

12.0 


Each of these subroutines except OUTPUT will be described in this Section 
Subroutine OUTPUT is described in paragraph 12.0 and will not be repeated 
here. 

4.1 BATES ISP MODULE ENGINEERING DESCRIPTION 

The first part of the module, down to Statement 10, sizes and locates 
the Real and Common Variables used in the module. Subroutine ITIDNZ 
is called at Statement 10 to initialize the propellant data that will 
be required later for Subroutine IDNOZL to calculate the two phase flow 
performance of the BATES and End Item motors. 

■ . I- . ... ' ' " ' . ” 

The; test for SIBNL.G.T.0.0 is used to calculate the End Item motor 
specific impulse correction and skip the BATES test motor no loss 
specific impulse correction if the BATES correction is available for 
input. The following paragraphs will describe the options that are 
available for developing End Item motor delivered specific impulse. 

4.1.1 BATES Test Motor Performance 

The BATES test motor "ideal" or no-loss delivered specific impulse at 
standard conditions (1000 psia nozzle throat total pressure and 14.696 
psia ambient) is obtained by correcting the BATES test actual specific 
impulse to standard conditions and adding three major specific impulse 
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4.1.1 (Continued) 


correction factors; divergence, heat flow and two phase flow losses. 

This correction is made with the following equation before Statement 70. 

SI BNL=S IBT+SILDVB+S ILQB+S IL2PB 

The variable SIBT is the BATES test motor specific impulse corrected to 
standard conditions, SILDVB is the BATES test motor divergence loss, 

SILQB is BATES test motor heat flow loss, and SIL2PB is the BATES motor 
two phase flow loss. The method used to calculate each of these variables 
will be given in the following paragraphs. 

At Statement 40 the BATES test motor actual specific impulse is corrected 
to standard conditions by the ratio of the theoretical specific impulse 
at standard conditions to actual test conditions, SIAS/SIBAT or after 
Statement 30 by using an empirical efficiency factor (ETABT) which must 
be input. The values of theoretical specific impulse used in this 
correction may be developed with the curve fit algorithm or with the 
Subroutine LEWIS. The curve fit algorithm was developed from theoretical 
nozzle performance equations as follows: 


THEORETICAL THRUST 

F = m V„+ A (P -P ) 
e e v e a' 

THEORETICAL CHARACTERISTIC EXHAUST VELOCITY 


C* = 


m 


THEORETICAL SPECIFIC IMPULSE 



V e + 


m 




or 




C* (P e -P A > 



rearranging 





f 

t 
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4.1.1 


(Conti nuecJ) 


simplifv 

4 

I = I - — 
sp vac 





Using this equation form, the curve fit alcorithis for theoretical 
specific impulse at standard conditions (SIAS) and actua 1 conditions 
(SIBAT) were developed. The eauation used tc calculate SIAS is as 
follows. 

SIAS=AK(1 )+AK(2)*MC(3)+AK(3)*MC(3)**2-”C(6)*?X(3)*CK(2)/ 
(MC(4)*CK{ 1 ) ) 

In this equation the curve fit constants for theoretical vacuum SDecific 
impulse AK(1), AK(2), and AK(3) are input, MC(3) is the optimum ex- 
pansion area ratio for 1000 psia to 14.696 psia, KC ( 6 ) is the propellant 
theoretical characteristic exhaust velocity at 1000 osia chamber pressure, 
MC(4) is the BATES test motor chamber pressure, CK(2) is the standard 
ambient pressure 14.696 psia, and CK(1) is the gravitational constant, 
g ( 32 . 1 74 FT/SEC). The equation used to calculate SIBAT is as follows: 

SIBAT=AK( 1 )+AK( 2)*ARETB+AK(3)*ARETB**2-ARETB*MC(2)*PAMBT/ 
(PCBT*CK(1 )) 

The constants in this equation are the same as used in the equation for 
SIAS, ARETB is the BATES test motor expansion ratio, PAMBT is the ambient 
pressure for BATES test, and PCBT is the BATES test motor nozzle throat 
total; pressure. 

Subroutine LEWIS calculates both SIAS and SIBAT when NLEWIS is set to 
1.0. Prior to assigning values to nozzle throat total pressure, nozzle 
pressure ratio, and area ratio required for input to Subroutine LEWIS 
it is necessary to use the initialization routine Subroutine LEWIT. 
Subroutine LEWIT assigns zero to all previous values used for these 
variables. Beginning at Statement 20 new values for BATES test motor 
standard chamber pressure, a random set of nozzle throat total pressures, 
standard expansion ratio, BATES test motor nozzle area ratio, and End 
Item motor nozzle area ratio are set for input to Subroutine LEWIS. 

The End Item motor data are used here to calculate End Item motor 
specific impulse (SIAE). This eliminates the need to call Subroutine 
LEWIS a second time later in the Module. This call to Subroutine^ 

LEWIS also calculates theoretical characteristic exhaust velocity for 
several nozzle throat total pressures and the theoretical specific 
impulse at the nozzle throat which are to be used later in the cal- 
culation for End Item motor CSTAR as a function of nozzle throat total 
pressure. 

The BATES test motor specific impulse divergence loss correction 
(SILDVB) is developed by correcting the theoretical specific impulse 
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4.1.1 (Continued) 

at standard conditions (SIAS) with a constant, MC(5), that is a 
function of the nozzle divergence half angle using the following 
equation at Statement 50. 

SILDVB=SIAS*MC{5) 

The BATES test motor specific impulse heat flow loss correction (SILQB) 
is calculated with the following standard heat loss equation after 
Statement 50. 

SILQB-SI1 -SILDVB-SIBT 

SI 1 - ( ( S IBT+SI LDVB ) **2+2 . 0*CK( 3 ) *QBT / ( CK( 1 )*WPBT) ) **0 . 5 

In this equation (SIBT) is the BATES test motor specific impulse at 
standard conditions and (SILDVB) is the specific impulse nozzle 
divergence loss correction that was calculated above. The mechanical 
equivalent of heat ( CK( 3 ) ) is 778 FT -LB/BTU and the gravitational 
constant (CK(1)) is 32.174. FT/SEC. The heat loss measured with the 
BATES test calorimeter is defined as (QBT). The weight of propellant 
used in the BATES test motor is (WPBT). 

The BATES test motor two phase flow loss correction is calculated 
with the following equation above Statement 70. 

S I L 2 PB = S I AS* ( 1 - RTO I (1 ) ) 

In this equation the BATES test motor theoretical specific impulse 
at. standard conditions (SIAS) is that calculated above. The ratio 
of the lag to no lag specific impulse for an optimum expansion 
(RTOI(T)) is calculated in Subroutine IDNOZL. Subroutine IDNOZL 
calculates various parameters describing two phase flow through a 
nozzle using the input BATES motor geometry and the propellant data 
read in through Subroutine ITIDNZ. The BATES motor combustion product 
solid particle mean diameter (DPB) may be input or calculated as a 
function of the nozzle diameter (DTB). The relationship of DPB and 
DTB is a fifth order polynomial which was derived in Reference 3. 

4.1.2 End Item Motor Performance : 

If the BATES test motor no loss specific impulse (SIBNL) is available 
for input, the program begins calculation of the End Item motor theo- 
retical specific impulse at vacuum conditions (SIAE) and standard 
conditions (SIAS) at Statement 70. The two options available for 
calculating SIAE and SIAS are curve fit algorithms and with Subroutine 
LEWIS. The methods available for calculating (SIAS) were described 
in Paragraph 4.1.1. The curve fit algorithm for (SIAE) expansion ratio 
is as follows. 


4-4 


D256-10020-1 


original pacp to 

°V POOR $** 


M.2 


(Continued ; 
S I AE=AK ( 1 - 


- n this equation the 
input and ARETE 
i he ootion to use r 
- r 1 'e and i s 
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. ^rj AK( 3 ) 
■’■‘Ci ratio, 
is ^ 1 so avail 
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Beginning at State.-rt ?0 the BA~ES test t> 

del ivered specific imru/e li „ h " or no 105s 

the End Item motor delivered snecific im-uK^ 6 / '-re 1 C& V’ for deve1on * :,, 'S 
exhaust velocity (CSTAF)" -his Hp/L// and characteristic 

1000 psia nozzlo thriar Ltt ** V5 - l,j t 4 -cific impulse at 
•«* the foiiowino l^t-Ion at Statement 120 


SIDE-(SiENL-„. J.L2PE- . ’ LOt - : . LDVE ' - +c I !_ j 


SII d E 15 iId-;te'TcLn S hen "ow 
End item motor nozzle Lb> : 4aen”TohTLI- ! ,K ! h S J tS8 4 *** 

S»s“ Ch ef these t0 

X E M,X r 2°ua«onI aCUU " S ° eC<fiC iff=Ul3e SIENL 15 

SIENL=SIBNL*SIAE/SIAS 

In this eouation the BATES nn+nv no 

standard condition (SIBNL) / correrted^^E^ 

and vacuum conditions by the ratio of theoretical saeclflc « . 

rui;>fi UUm cond ’ t ’ or,s to standard conditions, S14E7SIAS The cal- 

above P Dr0CedUr# f ° r SIAE an “ 31,3 are Metical tS those described 

The End Item motor two phase flow loss (SIL2FF) is calcuiarprf with 
the following equation if the motor has i conical nozzle/ 

SIL2PE=SIAE*( 1 -RT0I2) 

(«AlTwi^aHl4!l e 2!: et,C4, -r eC,f 1 c ’' r!:u,se at vacuum conditions : 
™ fl r d b0Ve - . ,he / mi ° ° r thp lag to no laa specific 

D? 0 ZL snl?d L i mU - expflns i on <H t 0I2> is calculated wi ^Subroutine 
lUoUZL. Solid particle mean diameter. Droneliant characteristirs 

so 0 ilMr??rf y ,rt , re 'J ul red fo ^theEn^ I tern motor . 

b= inoui ni l. I n.IT d 1 ame ten f DPE) for the End Item motor may 

with the f n/w 6d ? S 3 tunpt ' on of nQZ2le throat diameter (DTE) 
with the fifth order polynomnal described in Paragraph. 4 . 1 . 1 . 
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4.1.2 (Continued) 

End Item mot:or has a contoured nozzle the two phase flow loss 
(SIL2PE) can be calculated with the following equation at Statement 105. 

SIL2PE=SIAE*(1 . -(RT0I2*( ( 0. 5-0. 5*C0S( ALPHA) )/ 

(0.5-0.5*C0S( (ALPHA-QEX)/2. ) ) )*XLAMBD) ) 

The End Item motortheoretical specific impulse at vacuum conditions 
(SIAE) -and the ratio of the lag to no lag specific impulse for an 
optimum expansion (RT0I2) are those calculated above. ALPHA is the 
equivalent conical divergence angle of the contoured nozzle and QEX 
is the slope of the nozzle contour at the exit plane. The ratio of 
the theoretical specific impulse of the contoured nozzle to the 
theoretical specific impulse of an equivalent conical nozzle (XLAMBD) 
is derived with the Axisymmetric Two-Phase Perfect Gas Performance 
Program (ATPAP) described in Reference 4. Since AT PAP is a large 
program and will be required only once durina a series of predictions 
it will be executed separately to develop XLAMBD for input data for 
SRB-II. ATPAP is currently operational at MSFC on the Univac 1108 
and at Boeing on the IBM 370. 

The End Item motor specific impulse heat flow loss Correction (SILQUE) 
is calculated with the following equations. 

SILQE=S IENL-S IL2PE-SI2 

S I 2= ( (SIENL-SIL2PE)**2-QAIE*WINE*2*CK(3)/(WPE*CK(1 ) ) )**0.5 

SIENL and SIL2PE are as defined and calculated above. The two constants 
CK( 1 ) and CK{3) are the gravitational constant (32.174 FT/SEC) and 
mechanical equivalent of heat (778 FT-LB/BTU);. WINE is the mass of 
expended inert liner material and QAIE is the heat of ablation of this 
material in BTU/LB. The End Item motor propellant weight is WPE. 

The End Item motor specific impulse divergence loss correction (SILDVE) 
is calculated with the following equation if the motor has a conical 
nozzle. 


SILDVE=SIAE*(1 .0-CLAME) 

This equation uses the End Item motor nozzle divergence half ancle 
AHALFE to calculate the correction applied to the End Item motor 
theoretical specific impulse at vacuum conditions (SAIE) that was 
calculated above. 

The End Item motor divergence loss correction (SILDVE) for a contoured 
nozzle can be calculated with one of two options. The approximate 
correction method uses the following equation at Statement 115. 
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4.1 


(Conti nued) 


SILDVE-SIAE*(0.5-0. 5*C0S ( (-ALPHA+QEX )/2 . 0) ) 


above! S Ktbod'Sf ,re defined ° r calculated 
equation at Statement 117. “ C correctron uss s the following 


SILDVE=SIAE*(0. 5-0. 5*C0S( ALPHA ) )*XLAMBD 


cClnld above!° n SH£> ^ a " d XLAMBD «»» ^ined and cal- 
culated U 

CSTAR= siae ) * CSTAR 1 * {<sienl ' (1 ' 0 " RT0I3) * SI3 ‘ SIL0E) * silsb )/ 

JS00 h psia^ozzfe f’-ity at 

• inijssip iroKw 
Ms **"??'* ? hna 

Lcwio wnen it was used above to calculate SIAE and SIAS 

JozzVe e thraat T tot!? mc,du1 ! s rec ! uires CSTAR as a function of 

these datl°' at rh2 t ?- pr 5 ssu !; e - Two 0Dti °ns are provided for developin 

used if the option e NI°FWT? r n er poly " omia ] Siven in Statement 130 i s P 
U cu IT r.ne option NLEWIS=0 was selected earlier in thp Mndni* t« 

^oS??ne l‘ W,S U h r a1 h fU C ° ef ri ient ? (CSC0EF) e mus? b^in u Sf’" 
ouuroucine LtWib has been used to ralnils+o pc;tadi ,* + , , 

™ ?J d <«. 0 "*l th^ticS. characteristic^exhaust ^ocnles^ 

a routine f is°used to'cai™?^’ pressur ® s - Beginning at Statement 140 
j,i., , , ,!^ ed Po ca iculate a second order curve fit for these 

thJ 7 »ro eStab 1Sh a theoretical characteristic exhaust velocity at 

LE S er °T e “^,’IIr dept ' The curve fit is ta* by Subroutine* 
curve 'fit uil? l bcessure lnterce Pt is shifted so that the 

ieloci tv CSTAR Th ‘ hr0U9h . the End Item motor characteristic exhaust 

sweat n " fh r< r vised intercept and the curve fit constants 
are set up in an equation for CSTAR as a function of nozzle throat 
to.al pressure in the following equation for use in other moduli 

CSCQEF( 1 )=CSTAR-CSC0EF (2 )*MC (4) -CSCQEF (3j*MC (4 )**2 

Data calculated in the BATES Iso Module are transferred to the OuW 
Module where^ they are orinted in a Specified format"^^^^ 


4-7 



D256-10020-1 


4.2 SUBROUTINE ITIDNZ AND DATLOC (IDNOZ) ENGINEERING DESCRIPTION 

The initial part of Subroutine ITIDNZ sizes and locates the variables 
for 1 n P ut t0 Subroutine IDNOZL . It uses Subroutine 
DATLOC ( I jNOZ ) to search the data disk to locate the appropriate 
input data package that was read on disk with the Input Module. If 
the data package is missing the Subroutine automatically reads the 

o e w^TT ase * The ltems in the input data packaqe are given in Table 
3-VIII of Volume II. 

4.3 SUBROUTINE LEWIS AND LEWIT ENGINEERING DESCRIPTION 

The programming mechanism of calling Subroutine LEWIS requires that 
Subroutine LEWIT be called to set the initial values of several 
variables in Subroutine LEWIS. The followina variables are set in 
Subroutine LEWIT. 

PCP(I) = 0.0 
SUBAR(I) =0.0 
SUPAR(I) = 0.0 
P(I) = 0.0 
IRKT02=1 

After the values are initialized, Subroutine LEWIS is used to calcualte 
theoretical specific impulse and characteristic exhaust velocity for 
a given propellant formulation at specified chamber pressures, pressure 
ratios and nozzle area ratios. Subroutine LEWIS is an adaptation of 
the CEC71 program developed by NASA-Lewis Research Center, Reference 1. 
CEC71 has been reduced to work only rocket problems, then further re- 
duced to decrease core requirements. The following options and features 
were removed from CEC71 to develop Subroutine LEWIS. 

a) The number of species (combustion products) which can be considered 
were reduced from 150 to 115. This eliminates consideration of 
some of the more complicated propel 1 ant combinations. These 
combinations may be considered by first running the full CEC71 
program externally and then submitting results in the LEWIS DATA 
package. 

b) All NAMELIST input data requirements were removed. This restricts 
the units and methods by which the data may be transmitted to the 
LEWIS subroutine. 

c) The option for intermediate output was removed. The capability 
for debug print in cases of bomb-out and non-convergence no 
longer exists. 

d) All normal program output other than the specialized rocket para- 
meters printed from RKTOUT were removed. The output from RKTOUT 
is optional and may be obtained by setting an indicator in the 
input data. 
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4.3 (Continued) 

e) The option of entering thcrmodynani c data iron! cards was removed. 
This limits the user to the standard thermo dynamic data or the 
NASA LEWIS supplied data (LEWIS Thermo Data Tape). 

Other than the modification described above, One detailed engineering 
description of Subroutine LEWIS is given in Reference 1. 

4.4 SUBROUTINE IDNOZL ENGINEERIN': DESCRIPTION 

Subroutine IDNOZL is an adaDtation of the IDNOZL Program developed by 
Bruce Kubert at Aerospace Corporation in 1964, Reference 5. The 
subroutine utilizes the basic computer program. Modifications were 
made only to the input-output schemes where necessary to use the program 
as a subroutine. Input data for IDNOZL, set up as described above in 
Subroutines ITIDNZ and DATLOC (IDNOZ), includes motor geometry and 
propellant data. Subroutine IDNOZL calculates the parameters describing 
two phase flow through a nozzTe. It assumes that the flow is one- 
dimensional and that the chemical composition of the gas-particle 
mixture remains fixed throughout the nozzle. The subroutine calculates 
the lag or no lag specific impulse, which are used in the two phase 
flow loss calculations. The lag specific impulse is calculated assuming 
that the gas and particles have a different velocity and temperature 
throughout the nozzle. The no lag specific impulse assumes that both the 
gas and particles are at the same velocity and temperature throughout 
the nozzle. Two phase flow specific impulse losses may be calculated 
both at the nozzle throat and at the nozzle exit. The detailed 
Engineering descriptions of the basic eauations used in the Subroutine 
IDNOZL are given in Reference 5. 

4.5 SUBROUTINE LESSQ ENGINEERING DESCRIPTION 

This algorithm develops a second degree polynomial curve fit for at 
least three coordinate points using the principle of least squares. 

The form of the second degree polynomial fit is given in the following 
equation: 

2 

y - a-| + + a^x 

The coefficients a], ag and a 3 are developed by solving the following 
equations. 

a = (zxzy-nlxy) (lx~x -ntx )-(zx Ty-n!:x y)[(zx) -nix"] 

3 ("xzx 2 -n;:x 3 ) 2 -[(Ex 2 ) 2 -nzx 4 ][(Ex) 2 -nsx 2 ] 
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Thr Values of the coefficients are returned to the Module that has 
called Subroutine LESSQ. 

4.6 BATES ISP MODULE LIMITATIONS 

The BATES Isp Module should be used only when a complete set of data 
are available from a BATES motor test. The two phase flow losses that 
are calculated with Subroutine IDNOZL for both the BATES and End Item 
motors are restricted to specific chamber to throat radius ratios. 
Chamber to throat radius ratio for the BATES motor is fixed at 4.0 
and for the End Item motor it is fixed at 3.65352. 
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SECTION 5 


5.0 ISP SCALING MODULE (SISCAL) 

SgSiiSii.- 

the theoretical "chlraJtdristic^xhauJt^eloiit. ’f deve, ° pe J. b > c^reeting 

Chlld b h er9en C% l0SSeS ' This modu,e is selected bv CCttiCq NSI^^n' 6 "^ 
shou’d be used for preliminary design iterations since it prov ides a 
good estimate of these parameters and requires a minimum of input data. 

The module uses the subroutines given in Table 5-1. 

TABLE 5-1: ISP SCALING MODULE SUBROUTINES 

Sub rout i ne __Name Paragraph Number 


LEWIT 

LEWIS 

LESSQ 

OUTPUT 


4.3 

4.4 
4.6 

12.0 


The engin^ring description of each of these subroutines is given in 
other paragraphs and will not be repeated. J 


5.1 


ISP SCALING MODULE ENGINEERING DESCRIPTION 


d 1 *! 1 p ° r J lon of the module , down to Statement 20, sizes and locates 
the Real and Common variables used in the module; Beginning at Statement • 

nozzle throat total ^ End ,! tem m0tor vacuurT1 specific Wise at average 

a- ressure by correct ing the theoretical vacuum specific 
mace SIA P for divergence losses, motor inefficiency as a function of 
mass flow rate, combustion inefficiency and submerqence loss. These 
corrections are made with the following equation at Statement 90. 

SIDE=CLAME*ETANZ*ETACS*SIAE*SILSB 

ihe variable CLAME is the divergence loss factor which is based on the 

fktoJ em ETArs r ic n °th 6 d I vergen £ e half an 9 le > ETANZ is the motor efficiency 
actor, ETACS is the motor combustion efficiency factor and SILSB is the 

factor? 6110 ?! k SS T actor - The method used to develop each of these correction 
factors will be given in the following paragraphs. ' corrector. 

Vlf. fn ? tor spec! f i c impulse divergence loss correction (CLAME) 

aro S 6 i he r 1npL| T calculated. The methods used to calculate CLAME 
The fo??? dent W 5 et 5 er the End Item motor nozz ^ e is conical or contoured 
fs conical 9 Standard eGUatlon is used below Statement 70 when the nozzle 
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5.1 (Continued) 

CLAME=0. 5+Q.5*C0S(AHALFE) 

This equation uses the End Item motor nozzle divergence half angle 
AHALFE to calculate the divergence loss correction factor. 

When the End Item motor is contoured two methods are available to the 
user to calculate CLAME. The approximate method uses the following 
equation below Statement 70. 

CLAME=0 . 5+0 . 5*C0S( (ALPHA+QEX )/2 . 0 ) 

In this equation ALPHA and QEX are functions of nozzle geometry that 
were defined in paragraph 4.1.2. The method of characteri sties correction 
uses the following equation above Statement 90. 

CLAME= (0. 5+0. 5*C0S( ALPHA) )*XLAMBD 

In this equation, ALPHA and XLAMB are those defined in paragraph- 4.1.2. 

The End Item motor efficiency factor is calculated at Statement 60 with 
a second order curve fit equation. The curve fit is based on a semi 
log plot of motor efficiency versus End Item motor mass flowrates and has 
the following form. 

• ETANZ=(AK(10)+AK( 1 1 )*AL0G(WD1 ) +AK ( 1 2 ) * ( ALOG ( WD 1 ))**2. 

The curve fit coefficients are AK(10), AK( 1 1 ) and AK(12). The mass 
flowrate for the End Item motor (WD1) is calculated at Statement 50 with 
the following equation that relates characteristic exhaust velocity and 
the mass flowrate through the nozzle. 

WD 1 =PCAVE*CK(4)*DTE**2*CK(1)/(4.*CSTAR2*ETACS) 

In this equation PCAVE is the average nozzle throat total pressure of 
the End Item motor. The constants CK(4) and CK(1) are tj ( 3 . 1 41 69 ) and 
the gravitational constant g ( 32 . 1 74 FT/SEC). The End Item motor 
theoretical characteristic exhaust velocity (CSTAR2) may be input 
as MC(7) or calculated with Subroutine LEWIS. Subroutine LEWIS calculates 
CSTAR 2 with the End Item motor average nozzle throat total pressure 
PCAVE. The motor efficiency factor ETACS is an input parameter that is 
used in both the equation for WD1 and SIDE. 

Two options are available for calculating the End Item motor theoretical 
vacuum specific impulse SIAE. These options use Subroutine LEWIS and 
a second order curve fit algorithm of theoretical vacuum specific im- 
pulse as a function of nozzle area ratio identical to that shown in 
paragraph 4.1.2. Prior to assigning values to nozzle throat total pressure 
and area ratio required for input to Subroutine LEWIS, it is necessary to 
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5.1 (Continued) 

use the initialization routine Subroutine LEWIT. Subroutine LEWIT assigns 
zero to all previous values used for input to Subroutine LEWIS. The 
parameters set up for input to Subroutine LEWIS are End Item motor average 
nozzle throat total pressure, a random set of nozzle throat total pressures, 
and End Item motor nozzle expansion ratio. This call to Subroutine LEWIS 
also calculates theoretical characteristic exhaust velocity for the End 
Item Motor and several nozzle throat total Dressures which are required 
later in the calculation for End Item motor characteristic exhaust 
velocity as a function of nozzle throat total oressure. The curve fit 
algorithm for theoretical vacuum specific impulse at End Item motor average 
nozzle throat total pressure as a function of nozzle expansion ratio is 
as follows. 

SIAE=AK{ 1 ) +AK ( 2 ) *ARETE+AK ( 3 ) *ARETE**2 

In this equation the curve fit constants are AK(1), AK(2) and AK(3). 

ARETE is the End Item nozzle expansion ratio. 

The End Item motor submergence loss correction (SILSB) is required input 
data. The value of this empirical correction should be derived with 
applicable data from tests specifically conducted to determine the 
effects of nozzle submergence. 

The End Item motor characteristic exhaust velocity CSTAR is calculated 
w-ith the following equation. 

CSTAR=CSTAR2*ETACS*0K( 3 )*SILSB 

In this equation the theoretical characteristic exhaust velocity (CSTAR2) 
is adjusted by a motor efficiency factor (ETACS) and the submergence 
factor, CSTAR2 was calculated above when Subroutine LEWIS was called and; 
is' based on the End Item motor average nozzle throat total pressure (PCAVE) 
and expansion ratio (ARETE). An empirical factor (0K(3)) is provided 
in the event it is needed to further adjust CSTAR2 to match an actual 
motor. The submergence loss correction factor (SILSB) is that defined 
above. 

The use of CSTAR in other modules requires CSTAR as a function of nozzle 
throat total pressure. Two options are provided for developing these 
data. The second order polynominal given in Statement 130 is used if 
Subroutine LEWIS was not used earlier in the Module. In this case, the 
curve fit coefficients (CSCOEF) must be input. If Subroutine LEWIS has 
been used to calculate CSTAR2 it also calculates several additional 
theoretical characteristic exhaust velocities for a range of nozzle throat 
total pressures. Beginning at Statement 140, a routine is used to cal- 
culate a second order curve fit for'these data to establish a theoretical 
characteristic exhaust velocity at the zero pressure intercept. This curve 
fit is performed by Subroutine LESSQ. The calculated zero pressure 
intercept is shifted so that the curve fit will pass through the End Item 
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5.1 


(Continued) 


2 l0c1 ? y (CSTflR) ' The revised '"terespt and 
Fnw T? f n J onstants are set up in an equation for CSTAR as a function 
of End Item motor average chamber pressure in the following equation. 

CSC0EF(1 )=CSTAR-CSC0EF(2)*PCAVE-C$C0EF(3)*(PCAVE**2) 

the Isp Scaling Modu1e are transferred to the 

Fnafi^H - re -! y are printed in a specified format in both 
tngnsh and Metric units. 
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SECTION 6 

6.0 CONTRACTOR DATA ISP MODULE (CDSI) 

! 

The Contractor Data Isp Module is used to calculate End Item' motor 
vacuum specific impulse and characteristic exhaust velocity when 
contractor small motor test data for the exact End Item motor pro- 
pellant comDOsition are available. This module converts small motor 
delivered specific impulse to End Item motor vacuum specific impulse 
by correcting the small motor actual specific impulse to vacuum conditions, 
then correcting for differences in nozzle divergence losses and differences 
in motor efficiency. The End Item motor characteristic exhaust velocity 
is developed by correcting the test motor actual characteristic exhaust 
velocity for differences in motor efficiency. This module is selected 
by setti ng NSI=2. 

The Contractor Data Isp Module uses the Subroutines given in Table 6-1. 

TABLE 6-1: CONTRACTOR DATA ISP MODULE SUBROUTINES 1 


Subroutine Name j 

Paraaraph Number 

LEWIT 

4.3 

LEWIS 

4.4 

LESSQ 

4.6 

OUTPUT 

12.0 


The engineering description for each of the Subroutines is given in other 
•paragraphs and will not be repeated. 

6.1 CONTRACTOR DATA ISP MODULE ENGINEERING DESCRIPTION 

The first portion of the module sizes and locates the Real and Common 
variables used in the module. The remainder of the module is set up to 
calculate End Item motor vacuum >speci fi c impulse and characteristic 
exhaust velocity. End Item motor vacuum specific impulse is developed 
by correcting the test motor actual specific impulse to vacuum conditions 
then correcting for nozzle divergence loss and motor efficiency differences 
These corrections are made with the following equation. 

SIDE=SIC0N*(SIAE/SIAC0N)*(CLAME/CLAM1 )*0K(2)*(ETANZ/ETANZ1 ) 

In this equation SICON is the test motor actual specific impulse, SIACON 
is the theoretical test motor specific impulse at test conditions, SIAE 
is the End Item motor theoretical vacuum specific impulse, CLAME is the 
End Item motor nozzle divergence loss correction, CLAM! is the test 
motor nozzl e divergence loss correction, ETANZ is the End Item motor 
efficiency factor, ETANZ1 is the test motor efficiency factor, and 0K(2) 
is an empirical factor for adjusting the motor efficiency ratio. The 
method used to calculate each of these variables will be given in the 
f ol 1 owi ng paragraphs. 
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6.1 (Continued) 

IIlS IS St mo i or specific impulse SICON is assumed to be available 

for the contractor test motor. It is also assumed that the test motor 

1S i de ?I 1Ca l t0 the P r °P ellant t0 be used in the End Item 
motor and nozzle throat total pressures of both motors are essentially 
trie Same . J 

Ttfm 1 SlJl al ^S° rre ^ i0 ? t0 SIC0N is P erform ed with the ratio of the End 
Item motor theoretical vacuum specific impulse to the test motor 

theoretical specific impulse at test conditions, SIAE/SIACON. There are 
two methods available for developing these variables. These are a curve 

Su ^T ou J' ine LEWIS - When the curve fit alaorithm is 
selected, SIAE is calculated as a function of End Item motor nozzle 
expansion ratio, ARETE, and theoretical vacuum specific impulse at End 
Item motor average nozzle throat total pressure (PCAVE) with the following 
equation, 3 


SIAE=AK( 1 )+AK(2)*ARETE+AK(3)*ARETE**2 

The curve fit constants AK V T), AK(2) and AK(3) in this equation are 
required input data. 

The curve fit algorithm for SIACON is developed from the following 
theoretical nozzle performance equation derived in paragraph 4 . 1 . 1 . 


Isp 



Using this equation form, the following eauation for the test motor 
theoretical specific impulse SIACON was developed. 


$IAC0N=AK( 1 3)+AK( 1 4)*ARET+AK( 1 5 )*ARET**2-ARET*MC(23 )*PAMT/( PCT*CK( 1 )) 

1 5 t ^ iS n^ q 1 u ^ tio A ^M^ the or e t i cal ^ vacuum specific impulse curve fit con- 
stants AK(13), AK(14), and AK ( 1 5 ) based on test motor nozzle throat 
pressure (PCT) are input. ARETE is the test motor nozzle exoansion 
ratio, MC ( 23 ) is test motor characteristic exhaust velocity at the actual 
chamber pressure, PAMT is the test condition ambient pressure, PCT is 
the test motor nozzle throat total pressure, and CK(t) is the gravitational 
constant, g(32 . 1 74 FT/SEC2). 


Wh‘en. Subroutine LEWIS is selected to calculate values for the test motor 
specific impulse correction SIAE/SIACON, it is necessary to use the 
initialization routine Subroutine LEWIT. Subroutine LEWIT assigns zero 
to all previous values used for input to Subroutine LEWIS. The parameters 
set up for input to Subroutine LEWIS are test motor and End Item motor 
nozzle throat total pressure and nozzle expansion ratio. This call to 
Subroutine LEWIS also calculates theoretical characteristic exhaust 
velocity for several nozzle throat total pressures which are required 
later in the calculation for End Item motor characteristic exhaust 
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6.1 (Continued) 

velocity as a function of nozzle throat total pressure. Since Subroutine 
LEWIS calculates only test motor theoretical vacuum specific impulse 
SILVAC(l) it is necessary to use the following eauation to calculate test 
motor theoretical specific impulse at test conditions. 

SIAC0N=SILVAC(1 )-ARET*MC(23)*PAMT/(PCT*CK(l ) ) 

The variables used in this equation to correct the theoretical vacuum 
"■ specific input are identical to those used in the curve fit eauation 
for SIACON. 

The nozzle divergence loss difference correction, CLAME/CLAM1 is developed 
by the following standard equations. 

CLAME=0. 5+0.5*C0S(AHALFE) 

and 

CLAM! =0 . 5+0 . 5*C0S ( AHALFl ) 

These equations use the End Item motor conical nozzle divergence half 
angle,. AHALFE and the test motor conical divergence tia^f angle, AHALFl 
to calculate the correction. Two alternate methods are provided for 
calculating CLAME if the End Item motor has a contoured nozzle. The 
'approximate method uses the following equation above Statement 30. 

CLAME=0. 5+0 . 5*C0S ( ( ALPHA+QEX )/2 . 0 ) 

In this equation ALPHA and QEX are determined from the contoured nozzle 
geometry as defined in paragraph 4.1.2. The method of characteristics scheme 
for calculating CLAME uses the following equation above Statement 30. 

CLAME= (0. 5+0. 5*C0S( ALPHA) )*XLAMBD 

In this equation ALPHA and XLAMBD are those defined or calculated in 
paragraph 4.1.2. 

The motor efficiency difference correction ETANZ/ETANZ1 is developed 
with the following second order curve fit equations. These equations are 
based on a semi-log plot of motor efficiency versus motor mass flowrates 
when the mass flowrate covers the range for both the test motor and 
the End Item motor. 

ETANZ=(AK(10)+AK(11 )*AL0G(WDE)+AK(1 2)AL0G(WDE)**2)*SILSB 
and 

ETANZ1 =AK{ 1 0)+AK( 1 1 )*AL0G( WD2)+AK( 1 2 ) *AL0G ( WD2 
The curve fit coefficients are AK(10), AK(ll) and A K ( 1 2 ) . SILSB is the 
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6.1 


(Continued) 


Hauli'inoH 1 w-i^ r H V ^ d J 0ZZl f s “ bmer 9 e P ce ^ss factor. This factor must be 
developed with data from tests specifically designed to obtain the 

effect of nozzle submergence. The End Item motor mass flowrate (WDE) 
is calculated at Statement 20 with the following equation that relates 
characteristic exhaust velocity and the mass flowrate through the nozzle. 

WDE=PCAVE*DTE**2*CK( 4)*CK( 1 ) / (4 . 0*MC ( 23 ) ) 

In this equation PCAVE is the End Item motor average nozzle throat total 
p essure. The constants CK(4) and CK ( 1 ) are 7 t( 3. 141 59) and the gravi- 
tational constant, g(32.T74 FT/SEC). The estimated End Item motor 
charactenstTc exhaust velocity is MC(23). The value of MC(23) is assumed 
to be the same as the test motor. The test motor mass flowrate WD2 is 
assumed to be available from test data and is a reauired input. 

T -?u E xu Ibe, P 1 motor characteristic exhaust velocity CSTAR is calculated 
with the following equation.. 

CSTAR=MC(23)*0K(2)*ETANZ/ETANZ1 


In this equation the test motor characteristic exhaust velocity MC(23) 
is corrected by the motor efficiency factor ETANZ/ETANZ1 . An emoirical 
factor OK(2) is provided in the event it is needed to further adjust 
motor efficiency. 

The use of CSTAR in other modules requires CSTAR as a function of nozzle 
throat total pressure. Two options are provided for developing these 
data. The second order polynominal given in Statement 130 is used if 
Subroutine LEWIS was not used earlier in the Module. In this case 
the curve fit coefficients CSC0EF must be input. If Subroutine LEWIS 
has been used it has calculated several additional theoretical character- 
istics exhaust velocities for a range of nozzle throat total pressures. 
Beginning at Statement 140, a routine is used to calculate a second 
order curve fit for these data to establish a theoretical characteristic 
exhaust velocity at the zero pressure intercept. This curve fit is 
performed by Subroutine LESSQ. The calculated zero pressure intercept 
is shifted so that the curve fit will pass through the End Item motor 
character! sti c exhaust velocity, CSTAR. The revised intercept 1 and the 
curve fit constants are set up in an equation for CSTAR as a function 
of End Item motor average nozzle throat total pressure as follows. 

CSC0EF ( 1 )=CSTAR-CSC0EF(2)*PCAVE-CSC0EF(3 )*(PCAVE**2) 

The data calculated in the Contractor Data Isd Module are transferred 
to the Output Module where they are printed in a specified format in 
both English and Metric Units. 
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6.2 CONTRACTOR DATA ISP MODULE LIMITATIONS 

In order to scale test motor data to the End Item motor with the 
Contractor Data Isp Module it is necessary that the test motor and End 
Item motor have identical propellants and nozzle throat total pressures. 
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SECTION 7 

7.0 INTERNAL BALLISTICS MODULE (IBM) 

The Internal Ballistics Module (IBM) is used to calculate the internal 
ballistics performance of the End Item motor. Performance parameters 
calculated by IBM include vacuum thrust, total impulse, chamber pressures, 
moments of inertia, propellant center of gravity, burn surface area, 
and weight of propellant remaining. Each of these are printed at selected 
time intervals. These performance parameters are calculated based on 
nozzle and case geometry, propellant grain configuration and propellant 
characteristics. Propellant characteristics include density, specific 
heat ratio, gas constant, molecular weight, coefficient and exponent 
for the burn rate equation and characteristic exhaust velocity. Pro- 
pellant characteristic exhaust velocity can be calculated with other 
Modules or input. 

IBM is based on the Boeing Internal Ballistics Program described in 
Reference 6 and retains all the original capability plus the following 
additional capability. 

a) The grain geometry dividing planes have been increased to 18. 

b) Grain segments can be inhibited on one end. 

c) Burnrate can be varied as a function of radial burn distance. 

d) Nozzle throat erosion is a function of nozzle stagnation pressure. 

e) Nozzle efficiency is a function of time. 

f) Ambient pressure is a function of time. 

In addition the original Boeing Internal Ballistics Program has been 
improved in the following areas. 

a) Buildup and decay performance calculation methods. 

b) Variable gas properties are interpolated with a linear interpolation 
routine. 

7.1 INTERNAL BALLISTICS MODULE ENGINEERING DESCRIPTION 

An engineering description of the Boeing Internal Ballistics Program 
is given in Boeing Document D2-1 25286-1, Solid Propellant Rocket Motor 
Internal Ballistic Computer Program - Program Manual (Reference 6). 

The Appendix included in this volume gives the necessary modified pages 
to revise Reference 6 in order to use it as an engineering description 
of the Internal Ballistics Module that is used in SRB-II. 

7.2 INTERNAL BALLISTICS MODULE LIMITATIONS 

The Internal Ballistics Module has the following limitations: 
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7.2 (Continued) 

1. A maximum of 18 reference planes are allowed in the cylindrical 
section to describe the grain design. 

2. A maximum of 100. increment dividing planes are allowed in the 
cylindrical section to define the mass addition regions. If this 
restriction is exceeded by defining a aZ too small, the case ex- 
ecution will be terminated and an appropriate comment will be 
printed. 

3. A maximum of 18 slots are allowed for segmented motors. 

4. The slotted-cone grain design is applicable only to the cylindrical 
section. Burn area tables must be input for the forward and aft 
domes when this grain design is used. 

5. The inert sliver option is restricted to the cylindrical section 
and does not apply to either end section. 

i 

6. The effects of an accelerating reference system can be determined 
only for non-steady flow gas dynamics. 

7. The submerged nozzle entrance plane must be perpendicular to the 

nozzle centerline. % 

8. Uninhibited or fully inhibited segment faces can be simulated; 
however, partially inhibited segment faces cannot be simulated. 

Partially inhibiting occurs when a lateral face of a segment 
is only partially covered with burn inhibiting material. 
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SECTION 8 


8.0 THRUST SCALING MODULE (FSCAL ) 

! 

The Thrust Scaling Module provides a method for calculating nominal 
End Item motor performance’ by scaling the performance of a baseline 
motor. The procedure produces a scaled thrust versus time trace from 
a similar trace of the baseline motor by modifying total burn time or 
total propellant mass. The module was designed for an alternate to 
the Internal Ballistics Module! when data needed for a complete internal 
ballistics prediction are not available. 

The Module uses the Subroutines given in Table 8-1. 

TABLE 8-1: THRUST SCALING MODULE SUBROUTINES 

Subroutine Name Paragraph Number 

INERT 9.0 

OUTPUT 12.0 

Each of these Subroutines are described in other paragraphs and will not 
be repeated in this section. 

8.1 THRUST SCALING MODULE ENGINEERING DESCRIPTION 

The first part of the module, down to above Statement 10, sizes and 
locates the Real and Common variables used in the module. NPMAX is 
•set equal to the number of points used in the baseline thrust (AFSRM(I)) 
versus time ( ATB ( I } ) data given in Table 3-XIV of Volume II. 

Statements 10 through 30 set the values of SRB burn time TB and TBNOM 
and propellant mass (MPTOT) dependino on the values of the indicators 
NTB and NMP. 

Beginning at Statement 30 several calculation variables are initialized. 
These include the scaled time (TPN), scaled SRB thrust (FSRM), scaled 
SRM flowrate (MFSRM), scaled SRB propellant mass remaining (MPR(l)) 
apd scaled SRB chamber pressure ( PC ( 1 ) ) . 

The performance scaling calculations begin at Statement 40 with a loop 
counter that sets up each baseline thrust versus time point that is 
to be scaled. The baseline motor data are given in Table 3-XIV of 
Volume II. The following paragraphs will describe each scaling equation 
used in the loop. 

The time increment used in the baseline thrust versus time table is scaled 
to the nominal time increment (TPN(I)) with the following equation. 

TPN ( I )=TB/TBNOM*ATB( I ) 
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In this equation TB is the burn time for the scaled motor, TBNOM is the 
burn time- for the baseline motor and ATB(I) is the time increment used 
in the baseline motor thrust time table. 

The value of baseline thrust in the thrust versus time table are scaled 
with the following equation. 

FSRM( I )=TBNOM/TB*MPTOT/MPNOM*AFSRM( I ) 

In this equation TBNOM and TB are defined above. AFSRM(I) is the base- 
line thrust given in the baseline motor thrust time table. The baseline 
motor propellant mass MPNOM is consistent with the data in the thrust 
versus time table. MPTOT is the propellant mass of the scaled motor. 

The scaled motor flowrate (MFSRM(I)) is calculated with the following 
equation: 

MFSRM( I )=FSRM( I ) / S IDE 

In this equation the scaled motor thrust FSRM(I) was calculated above 
and SIDE is the scaled motor average specific impulse. 

The propellant mass remaining (MPR(I)) in the scaled motor is calculated’ 
with the following equation. 

MPR( I )=MPR( 1-1 ) - ( MFSRM( 1-1 )+MFSRM( I) )/2.0*DELT 

In this equation MFSRM(I) is calculated above. The time increment ( DELT ) 
is the time between the scaled thrust versus time data. 

The chamber pressure of the scaled motor is calculated with the following 
equation. 

PC( I )=MC( 1 )+FSRM( I ) 

This equation is derived from the standard equation relating thrust, 
chamber pressure, throat area and coefficient. The scaled motor thrust 
(FSRM(I)) was calculated above and ( MC ( 1 ) ) is the inverse of the product 
of the scaled motor thrust coefficient and nozzle throat area. 

Subroutine INERT is used to calculate the contribution of the "inert" 
thrust, "inert" flowrate and "inert" mass remaining on board. These 
data are scaled from a baseline data of "inert" mass overboard versus 
propellant mass overboard (Table 3-XIV of Volume II). These data are 
nondimensionalized so that the total proDellant and "inert" mass may be 
varied to match the scaled motor. 
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8.1 (Continued) 

The data calculated in the Thrust Scaling Module and the data calculated 
in Subroutine INERT are transferred to the Output Module where they 
are combined and printed in both English and Metric Units. 

8.2 THRUST SCALING MODULE LIMITATIONS 

The thrust scaling technique used in the Thrust Scaling Module is 
restricted to small deviations (= 5 %) from the thrust versus time data 
for the baseline motor. Use of the Module also reauires that the 
scaled motor have the same thrust versus time shane as the baseline 
motor. 
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9.0 "INERT" MASS MODULE (INERT) 

The "inert" Mass Module calculates inert mass flow rate, mass of ex- 
pendable inerts remaining, thrust contribution of the inerts, and the 
total impulse contribution of the inerts. Inert mass accounting is 
required because the total mass expended by a solid rocket motor exceeds 
the propellant mass. The excess is considered exnended '‘inert" mass 
and is made up primarily of insulation and ablative material contained 
in the motor interior and nozzle throat. This expended mass has a 
slight influence on thrust and total imDulse and a very significant 
influence on motor mass versus time. 

When a thrust scaling prediction is being made, INERT is called by 
FSCAL. When an internal ballistics simulation is being made, INERT 
is accessed by the Internal Ballistics Module through subroutine 
FAMCAL. 

9.1 : "INERT" MASS MODULE ENGINEERING DESCRIPTION 

The beginning statements of INERT up to Statement 10 establish the mass 
of propellant remaining, MPR, and the comoutation time .increment, 

DELTIM, when an internal ballistics simulation is being made (i.e.» 
when NF=1). Also, when TIME=0., the initial total mass of propellant, 
MPT0T, and the initial computation time increment, DELTTIM, are set. 

For a thrust scaling prediction (i.e., when NF=0) data for MPT0T and 
MPR are available through FSCAL and control is transferred to Statement 
10 to initialize the computation time increment, DELTIM. 

Starting with Statement 20, MPRR is calculated as the ratio of the 
current mass of propellant remaining to the initial mass of propellant. 

This is now the independent variable which is used to determine the 
dependent variable MIRR which is the corresponding ratio of the mass 
of inerts remaining to the initial total mass of inerts. MIRR is 
obtained with a linear interpolation of the AMPRR(I) and AMIRR(I) input 
array data. 

After the ratio MIRR is determined, the mass of inerts remaining, MIR, 
is calculated as the product of MIRR and the initial total mass of inerts, 
MIT0T. The inert mass flowrate, MIF, is then calculated as the change 
in mass over the computation time interval divided by the time interval. 

The consumed mass of inerts, MFINIT, is calculated by numerically 
integrating the flowrate. The inert thrust contribution, FI, is cal- 
culated as the product of the flowrate and the input value for the average 
inert mass specific impulse, SI I . The inert contribution to the delivered 
total impulse and the vacuum total impulse (AITTN and AITVIN, respectively) 
are calculated as functions of thrust. 

The variables whose names end in Z (MIZ, MIFZ, FIZ, and TIMEZ) are set 
to current values for use as previous values in the subsequent pass 
through the subroutine. 
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SECTION 10 


10.0 RECONSTRUCTION MODULE (RECON) 


The Reconstruction Module is used to analyze the propulsion system 
performance of SRB solid propellant rocket motors after the motor 
firing has been completed. Data from either static or flight firings 
may be used in conjunction with the Reconstruction Module to produce 
mptor mass flowrate, mass overboard, and specific imoulse versus 
time. Post-firing analysis of test data using the Reconstruction 
Module also produces parameters such as characteristic exhaust velocity and 
burning rate adjustments which can be used to improve accuracy of 
future predictions. The modules and subroutines called by the Recon- 
struction module are presented in Table 1 0- 1 along with paragraph 
numbers in which the routine engineering description is found. 

TABLE 10- I: SUBROUTINES AND MODULES CALLED BY THE RECONSTRUCTION MODULE 


Subroutine Name 

Paragraph Number 

BIAS 

10.2 

PADJ 

10.3 

IBM 

7.0 

LESSQ 

4.5 

LEWIS 

4.3 

LEWIT 

4.3 


Each of these subroutines except BIAS and PADJ have been described in 
other paragraphs and will not be repeated here. 

10.1 RECONSTRUCTION MODULE ENGINEERING DESCRIPTION 


The Reconstruction Module is based upon the following postulation: "For 

a set of pressure data from a firing of a motor with known propellant 
geometry and known nozzle geometry, there exists a unique relationship 
between propellant burning area, measured pressure, and the propellant 
burning rate law." The criterion for successful reconstruction of test 
performance using the Reconstruction Module is a match between measured 
head-end (forward-end) pressure and calculated burn area. This successful 
match must yield a burning rate law coefficient of pressure (a in a_P n ) 
which is consistent with the linear burning rate law with augmentation 
(r = a pn[l + 6]). The analysis implicitly assumes that the burning rate 
law pressure exponent, n , is known from propellant test data and does not 
vary during the firing. It is also assumed that the coefficient of 
pressure, a, is primarily a function of grain temperature for a well 
mixed propellant. 


Analytical calculations of motor internal ball j ? T n M x 
reconstruction are carried out in the Internal Ballistics Module ( )• 

The mode of IBM exercised during reconstruction is the same as the mode 
used for a bui 1 dup transient calculation with tabular input of head-en 
pressure data. These calculations force a match between input head-end 
pressure and calculated burning area. One result of these c a] c ^ a tions 
is a value of coefficient of pressure which forces the propellant burning 
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rate to satisfy the gas dynamic relations for mass conservation at each 
time slice. The values of coefficient of pressure derived at each time 
slice must change smoothly with time during a firing reconstruction. Any 
abrupt change in coefficient of pressure represents an inconsistency 
between calculated burning area and measured pressure. The cause of 
this inconsistency is an incorrect calculated propellant grain regression 
rate. 

The net effect of this incorrect calculated regression rates over a firing 
are realized at times when web burn throughs accompanied by. rapid changes 
in burning area occur. The measured head-end pressure transients which | 
correspond to changes in burning area will be out of phase with the cal- 
culated burning area changes. Thus, when a match between measured head- 
end pressure and burning area is forced by IBM, the value of coefficient 
of pressure produced deviates from the established trend in accordance 
with the degree of inconsistency between measured pressure and calculated 
area. This deviation from the established trend is used in the Recon- 
struction Module to determine when a reconstruction has converged to a 
good match across the run. 

Regression rates in the simulation are controlled by several input factors 
such as propellant characteristic exhaust velocity, propellant density and pro- 
pellant geometry. In cases where the coefficient of pressure deviates 
from fhe data trend, the most suspect of these input parameters is the 
propellant characteristic exhaust velocity (c*). For cases in which the input 
value of c* is high, the calculated propellant- grain regression rate 
will be low when compared with real values of regression.. Thus the 
burning area will remain at a relatively high level at initialization of 
a measured pressure transient and the calculated value of coefficient of 
pressure is forced down, i.e., 

c* > P m 4 - * a + 

'Likewise, low characteristic exhaust velocity input causes high regression rates 
and 

c * + A b + P m -■* a + • / ” : i 

The Reconstruction Module manipulates the characteristic. velocity curve 
fit up or down according to the direction in which coefficient of pressure 
deviates from the data trend. 

Recognition of coefficient of pressure deviations is achieved by first 
utilizing statistical techniques to establish a data perturbation band 
about the data trend line at each time slice, and then. checking for 
perturbations about the data trend which are beyond this limiting band. 

Data which deviate outside the perturbation band cause the routine to 
re-evaluate the characteristic exhaust velocity curve fit and re-initial ize the 
reconstruction case at a predetermined time. 
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The first part of the Reconstruction Module (REC0N) sizes and locates 
Real, Logical and Common variables used in the module. The logical 
variable LIST1 is tested. If LIST! is true, the following LIST1 
variables were input to the routine: 

TSREC - Time, referenced to ignition time, at which measured head- 
end pressure is equal to PF' AG during buildup. 

TEREC - Time, referenced to ignition time, at which measured head- 
end pressure is equal to PFLAG during tailoff. 

CSBAR - Characteristic velocity at pressure PBAR, used to shift 

the theoretical characteristic exhaust velocity versus pressure 
curve. 

PBAR - Pressure used to shift the theoretical characteristic exhaust 
velocity versus pressure curve. 

TWEB - Web time of the grain, defined as the time at which a 
specified percentage (PHEPI) of the head-end pressure 
integral is reached. 

PITW - Numerical value of head-end pressure integral used to 
define the time TWEB. PITW equals total head-end 
pressure integral multiplied by the specified percentage 
(PHEPI) for TWEB. 

If the variable LIST1 is false, values for the LIST1 variables are 
computed between the test on LIST 1 and Statement number 70. The 
variables TIMEZ, PHEADZ, TEREC, TWEB, PITW, PNSINT, and PHI NT are 
initialized to zero. Next the reconstruction data tape is rewould after 
Statement 10 and one record is read from the tape after Statement 15. 
Subroutine BIAS is called to apply any required zero corrections and bias 
factors to the measured data. After the call to BIAS a series of tests 
is performed to establish values of TSREC and TEREC . These tests con- 
tinue to Statement 40. At Statement 40 the nozzle stagnation pressure, 

PNS, is calculated from measured head-end pressure and an adjustment 
function PADJ(TIME). Next, the integrals of head-end pressure and: 
nozzle stagnation pressure are formed using a trapezoidal rule integration 
scheme. 

After the pressure integrations, a test for the end of the reconstruction 
data is performed. If TIME is greater than or equal to TEREC, the program 
logic branches to Statement 50. If the test on time fails, a test to 
determine whether or not a value of PITW has been calculated is made. If 
no value has been computed for PITW, previous values of integration 
parameters are set to current values at Statement 42 and the program logic 
branches to Statement 15 for the next data record from tape. If a value 
of PITW has been calculated, program logic branches to Statement 45 where 
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fsUsV?,, f S" e TfTnm iess 9 ^n°JiS 8 '- end pre ? sure - PHINT - 

branches stafi™" interpolation on time arid the program logic 

j 

At Statement 50 a test for TWEB greater than zero is made If the 
llll I s P a ?* ed ’ Program control branches to. Statement 70 If the 
test is failed, values for PITW, C.SBAR and PBAR arfcalculated 

Subroutine t LEWIs ade if°N^FWTs m ^ ne if . there is a ^“i'^nt to execute 
is to be called dt nn d, 1S „ 3re ^ er than zer0 - Subroutine LEWIS 

be twee^S tatement 55^5 Z dTs?"? ‘np^ s^elnt"' eXeCUted 
converted from points per square inch io atmospheres in thelubroutlre 
LEWIS and are converted back to pounds per square inch in the off 5 P ?oop. 

SSS£» : n" £ S™ nz.Tr.ss , 

hit nnt HppI r i te ‘ < ? , 4 . P I° 9ram - 0gic branches to Statement 75. If TWEB 
vfL, n0t ^ een calcu ! ated ’ lb ls necessary to reintegrate the pressure 
versus time curve in order to determine when TWEB occurs* this Dro 

£he U datr?^ reS J he p r ogram log1c t0 branch t0 Statement’lO to rewind 
the data tape and restart the integration. • 

mfchTnnV 0 ^ the starti n 9 point for the initial pass through the 
P - n 3 ^construction run. At Statement 70 a test is 

N?FWTs ic t6rm I ne S ether a cal1 t0 Subroutine LEWIS is required. If 
^5 W ‘ S , 1S greater than zero, the program logic branches to Statement 55 
and Subroutine LEWIS is called to provide theoretical cha?acterfs«c exhaust 

'data are avai’uhfr^h'' 6 data J? P r ® v1 ‘> Usl J' described. Once the LEWIS 
data are available, the curve fit of the theoretical characteristic exhaust 

PBARj’at Statement 75 tSd ^ th3t U paS5eS thr ° U9h the point (CSBAR > 

] 

Statement 85 is the main branch point in the iterative reconstruction 
convergence loop.. Each iteration is initiated at Statement 85 After 

S«p 8 0 IBM I s C i 1 . led t0 calculate the time varying parameters and 
tbe ^construction convergence indicator AFIT as described in 
Section 9.1.1 ofthis volume. After the call to IBM, a test is per- 

Tf^P AcJ 0 4 ? eterm I ne whether the current iteration is the first iteration. : 

Jf 1S 9 re ater than zero, the current iteration is not the first 1 
iteration and program logic branches to Statement 110. If IPASS is 

+ t0 l e . ro > counter (HOOP), the delta characteristic exhaust velocity 

fr^Twni’ ?! 10 - 5 nd ^ he characteristic exhaust velocity direction indicator 

(CSIND) are initialized and IPASS is set to one. 
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At Statement 110, the loop counter is incremented. Next, two tests are 

made to determine whether the reconstruction converged during the IBM 

simulation. The first test checks for reconstruction divergence which 

caused the coefficient of pressure to deviate from the established data 

trend in a positive direction (AFIT is greater than zero). If this test 

is passed, the assumed characteristic exhaust velocity curve fit was low and the 

program logic branches to Statement 130. 

The second test checks for reconstruction divergence which caused the 
coefficient of pressure to deviate from the established data trend in 
a negative direction (AFIT is less than zero). If this test is passed, 
the assumed characteristic exhaust velocity curve fit was high and the program 
logic branches to Statement 140. Reconstruction convergence is achieved 
when both tests fail (AFIT equal to zero) and the case is terminated with 
a successful completion message printed from Format 1000. 

Statements 130 and 140 test on the loop counter for maximum number of 
iterations equaled or exceeded.; If the test is passed the program logic 
branches to Statement 120 where a non-convergence message is written from 
Format 1010 and the case is terminated. If the maximum .number of iterations 
has not been executed, the characteristic exhaust velocity curve fit i.s adjusted 
up or down as necessary by changing the zero pressure curve intercept 
CSC0EF(1) appropriately. The program logic then branches to Statement 
150 where a header message is printed, from Format 1020 and the iteration 
loop is reinitiated. 

10.1.1 Reconstruction Calculations in IBM Subroutine MNCHN4 

A portion of the calculations required to determine whether convergence 
has been achieved in reconstruction is located in IBM Subroutine MNCHN4. 

These calculations are located between Statements 1270 and 1278. Cal- 
culations are performed in Subroutine MNCHN4 to increase speed and 
efficiency of computation. 

'Subroutine MNCHN4 calculations produce a least squares second order curve 
fit of coefficient of pressure versus distance burned using data from the 
four previous computation cycles. Next a value of coefficient of pressure 
(APR0J) is projected for the current value of distance burned and the 
difference between the current calculated value and the projected value 
of coefficient of pressure (ADEL) is computed. The standard deviation 
of the previous four coefficient of pressure points is calculated in 
Subroutine VARI . 

ADEL is compared with the value of three standard deviations for the 
previous four points (A3SIG). If the absolute value of ADEL is greater 
than A3SIG, the coefficient of pressure is consideredtohave deviated' 
from the data trend and the indicator AFIT is set to indicate the 
direction of deviation. Next a message is written to indicate the 
deviation and the program branches to Statement 1278. If the coefficient 
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10.1.1 (Continued) 

of pressure has not deviated from the data trend, the tables are updated 

™!J 0 the next coni P utat ' i on cycle and program logic branches to Statement 
1 . 2/8 • 


10.2 


SUBROUTINE BIAS ENGINEERING DESCRIPTION 


Subroutine BIAS is used to algebraically add bias factors such as zero 
correction and drift correction to measured data. Bias factors are 
installed at the time of reconstruction. Installation of bias factors 
requires recompilation of Subroutine BIAS. 

10.3 FUNCTION PADJ(TIME) ENGINEERING DESCRIPTION 

Function PADJ is used to provide an estimate of pressure drop from head- 
end pressure to nozzle stagnation pressure. The change in pressure drop 
is calculated as a linear function of time. The slope and intercept 
for the pressure adjustment can be derived from the pre-firing prediction 
for the motor configuration. 

r "" ■ ' : • ' ... 

1 0 i 4 RECONSTRUCTION MODULE LIMITATIONS 

MNCHN4 reconstruction logic is set up to operate on data from mass 
addition region one. For configurations in which mass addition region 
onp burns laterally as well as radially, another mass addition region 
which burns only the radial direction should be chosen and data from 
this chosen region should be substituted for the region one data. 
Substitution of another region will require recompilation of Subroutine 
MNCHN4. 


Other limitations for the Reconstruction Module are the same as those 
listed for the Internal Ballistics Module (Paragraph 7.2). 
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SECTION 11 


11.0 DISPERSION MODULE 

The Dispersion Module perturbs the independent inout variables for a 
dispersion data analysis. The Dispersion Module intercepts the input 
data for the Internal Ballistics Module (IBM) by reading the IBDATA 
NAMELIST for the nominal case (first case input for a run), modifies 
these data to yield the required dispersion in the desired parameter, 
and writes the dispersed data on disk in NAMELIST IDISP. (NOTE: Input 

data requirements and the input philosophy are discussed in Volume II 
of this document). The IBM then; reads the data from IDISP NAMELIST and 
proceeds in the same manner as a nominal prediction. The Dispersion 
Module calls no subroutines or modules other than the Output Module 
for preliminary printout of dispersion data. 

11.1 DISPERSION MODULE ENGINEERING DESCRIPTION 

The module initializes by defining the I/O unfit numbers for the IBDATA 
NAMELIST (NIB0UT-20) and rewinding the I/O unit for the IDISP NAMELIST 
(REWIND 25). Next a series of variable initialization statements are 
executed in which the variable SETFLG is set to zero and the variable 
MITSAV is set to MITOT. This action is reauired to allow execution of 
multiple cases in which an "inert mass" dispersion is not the final case. 

A test is performed to check for a thrust scaling prediction and in the 
thrust scaling case, IBM variable initialization is skipped. For an 
IBM prediction, several IBM input variables are then set to zero by the 
ensuing statements. This is done to initialize these variables such 
that in the case that no value is input by the user for any one or all 
of these variables, useless data is not written out in the IDISP NAMELIST 
and used by the IBM. 

The IBDATA NAMELIST I/O unit (NIBOUT) is rewound and IBDATA is read. The 
Output Module is called to give preliminary dispersion data printout of 
the Dispersion Option List.” After the call to Output a check to determine 
whether an "inert mass" dispersion was executed in the previous case 
(SETFLG=1 ) is executed. If' an "inert mass" nrediction was run in the 
’previous case, the "inert mass" initial value is set back to the nominal 
value. 

At Statement 15 the module selects the method for the specific dispersion 
calculation that will be made based on the value of NDISP. The dispersion 
options available in the module are given in Table 11 -I . 

In the case where NDISP=1 , the module goes to Statement 20 where it perturbs 
the nominal value of the propellant density (DELF) by the dispersion value 
for propellant density (DISL IM( 1 ) ) . The perturbed value for (DELF) is 
printed to provide a label identifying the specific dispersion ahead 
of the normal print format. The perturbed value of DELF replaces the 
nominal value of DELF and is stored on disk in NAMELIST IDISP and will be 
input to the Internal Ballistics Module for calculating the booster 
performance with the perturbed propellant density. 
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(Continued) 

TABLE 


NDISP= 1 * 
NDISP= P J 
NDISP= 3 I 
NDISP= 4 X 
N0ISP= 5 ; 
NO ISP= 6 ; 
ND I $P= 7 * 
N0ISP= A i 
NO I SP= q ; 

no I sp= i o ; 
N0ISP=1J 1 
NO I SP= 1 2 ; 
NO I SP= 1 3 ; 
NDlSPaU X 
N0ISP=1S * 
N0ISP=16 I 
NO I SP= 1 7 X 
NO ISP= 18 ; 
NO I SP= 19 ; 
NOISP=20 ; 
NOI«?P=2l ; 
N0ISP=2? { 


11-1: SRB DISPERSION VARIABLES 

♦ PROPELLANT density 

- PPOPELLANT DENSITY 

♦ pressure EXPONENT 
“ PRESSURE exponent 

♦ PRESSURE COEFFICIENT 

- PRESSURE COEFFICIENT 

♦ CHABACTERISTIC VELOCITY 

- CHARACTERISTIC VELOCITY 

♦ PROPELLANT GRAIN LENGTH 
" PROPELLANT grain length 

♦ propellant grain web thickness 
propellant GRAIN wEb THICKNESS 

♦ initial throat diameter 

- initial throat diameter 

♦ INITIAL EXIT DIAMETER 

- INITIAL EXIT DIAMETER 

♦ THROAT EROSION PATE 

- THROAT EROSION PATE 

♦ PROPELLANT grain temperature 

- PROPELLANT GRAIN TEMPERATURE 

♦ initial inert mass consumable 

- INITIAL INERT MASS CONSUMABLE 


for ea2h 6 of r thp e norfS ed in the P roceed1n 9 Paragraphs can be repeated 
o each of the performance parameters given in Table 11-1. ¥ 
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12.0 


OUTPUT MODULE 


C *J ”■ ‘he last two items are optional outputs and their Generation 

The OutpuTSol^ us^he’s^ "<*««»■ 

TABLE 12-1: OUTPUT MODULE SUBROUTINES 


Subroutine Name 

PRT1 

PRT2 

PRT3 

PRT4 

PRT5 

PRT6 

PRT7 

PRT8 


Paragraph No, 

12.1 

12.1 

12.1 

12.1 

12.1 

12.1 

12.1 

12.1 


Module^ th6Se Subroutines w1T1 be described as a part of the Output 

12.1 OUTPUT MODULE ENGINEERING DESCRIPTION 

1hi S f1 Ub *°o ti ? e . contro,s ttle P rl ' nti "9 of the module data printouts 
locations and^nP^Th^ 01 '' t 5 e , 5ubroutl ‘ n e name assigns the variable 
controls branrhinn’tn^ 6 cornp V t ® d go , t ? statement, before Statement 100, 

value of NPRINT 9 NjRTNT D ^ P rf e print subroutine based on the 

0 , rh JJl.i P? INT ts set in the Executive Module (MAIN) before 

tn Jho d Ca statement. Statements TOO through T 000 are the calls 

prog?L o r rtrol P ^ n the U Mr 1 " 65 ^ the branch =^tements to ?etu?n 
aftpr ?nn th ^ c ? l n ? r outine. The one statement NL600=50, 

i^subroutinP PRTfi 0 ’ rt I? 14 ! 31 bhe number of 1ines counter used 

Sub?oS(?nes n pR?? T ?hroJ g h h ’* 3 0f tbe of 

PRT1 - Prints the initial values for a case. They include 

program, motor, curve fit, universal and odd constants. 
They also include general program indicators, optional 
print indicators, and inert mass data. 


PRT2 -Prints the data calculated 
Scaling Module (SISCAL) in 
uni ts . 


in the Specific 
both metric and 


Impulse 

english 


PRT3 - Prints the data calculated in the Contractor Data Specif i < 
Impulse Module (CDSI). p 1 
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2.1 (Continued) 

PRT4 - Prints the data calculated in the BATES Specific 
Impulse Module (BATES). 

PRT5 - Prints the dispersion values for a case (DISP). 

i 

PRT6 - Prints the data calculated in the Thrust Scaling 
Module (FSCAL) . 

PRT7 - Prints the data calculated in the Internal Ballistics 
Module (IBM). 

PRT8 - Prints specific data from the Reconstruction Module 
(RECON). 
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SECTION 13 

13.0 NOZZLE SUBMERGENCE AND CONTOUR EFFECTS MODULE (NSCE) 

The Nozzle Submergence and Contour Effects Module {NSCE) incorporates 
a mathematical model to simulate the effects of nozzle contour and 
submergence on the internal ballistics and overall performance of a 
solid propellant rocket motor. Contour effects are simulated using 
functional modeling techniques which account for changes in per- 
formance due to nozzle expansion section shape. Since the primary effect 
of nozzle contouring is a change in the divergence loss factor, NSCE 
derives a value for this factor which allows the Internal Ballistics 
Module (IBM) to get the proper divergence loss factor for the contoured 
nozzle without change to the original IBM calculation technique. 

Submergence effects are modeled using both analytical and functional 
techniques to account for changes in the motor internal flow field 
and performance. The NSCE Module simulates the internal ballistics 
in the motor aft-end when the nozzle is submerged. For a submerged 
nozzle simulation, NSCE replaces IBM subroutines AIBSUB and AIBST 
for calculation of internal gas dynamics in the aft-end of the motor. 

The simulation differs from a normal internal ballistics simulation 
in that reversed flow (flow toward the forward end) occurs in the 
submerged portion of the port and more than one stagnation region 
occurs as shown in Figure 13-1. 

The assumptions made in deriving the nozzle submergence simulation in 
the NSCE Module are consistent with those made in the derivation of the 
IBM aft-end simulation with the additional specification that the nozzle 
entrance and submerged section be centered in the port for all cases. 

The basic assumptions for IBM and NSCE are as; follows: 

(a) The mass addition occurs as an instantaneous process with no 
velocity component parallel to the motor axis. 

(b) The products of combustion obey the perfect gas law. 

(c) The gas flow is one-dimensional and adiabatic. 

(d) The friction forces of the combustion gases in the port cavity 
are negligible. 

(e) The static pressure is constant across the fore-head section, 
i.e. no static pressure loss resulting from mass addition or 
area change. 

The Subroutines called by NSCE are listed in Table 13-1. Descriptions 
for Subroutines RSUB and XL IN are presented in preceeding paragraphs 
and will not be repeated. 
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NOZZLE THROAT 



FIGURE 13-1 INTERNAL FLOW WITH A SUBMERGED NOZZLE 


\ 



FIGURE 13-2 DEFINITIONS OF THE ANGLES a AND 6 
FOR A CONTOUR NOZZLE 
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13.0 (Continued) 


TABLE 13-1: NSCE MODULE SUBROUTINES 


Subroutine Name 

Paragraph Number 

MACH 

13.2 

RBSUB 

' 7.0 

SUBSON 

13.3 

XLIN 

7.0 


13.1 NOZZLE SUBMERGENCE AND CONTOUR EFFECTS MODULE ENGINEERING 

DESCRIPTION : ! 

The NSCE Module is accessed only from the IBM. An internal option 
indicator, IOPT, is set in the calling statement which directs the 
NSCE Module to do the following: 

IOPT =1 Correct the nozzle half angle for nozzle contour effects 

as described in paragraph 13.1.1. 

IOPT =2 Perform an internal ballistics simulation of the aft-end section 
of the motor for a specified submerged nozzle section assuming 
steady state gas dynamics apply. This simulation is discussed 
in paragraph 13.1.2.1. % . 

IOPT-3 Perform an internal ballistics simulation of the aft-end section 
of the motor for a specified submerged nozzle section assuming 
non-steady state gas dynamics apply. This simulation is dis- 
cussed in paragraph 13.1.2.2. 

After any one of these options is exercised, the module returns to the 
calling routine. Thus, the NSCE Module is divided into three separate 
sections which are independent. 

13.1.1 Contour Effects Simulation (IOPT =1 ) 

For cases in which the motor to be simulated has a contoured nozzle 
expansion section, a functional simulation routine is executed to provide 
the IBM with a proper datum for thrust coefficient calculation. This 
simulation is performed between statements 10 and 100. 

The primary effect of nozzle contouring is a change in the divergence 
loss factor x. The divergence loss factor is calculated in IBM from the 
effective half angle for the nozzle. Thus the IBM datum is an effective 
half angle for the nozzle. The IBM delivered thrust equations are as 
follows: 

C F0L = * C F0 X n + 4*G )C M 
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13.1.1 (Continued) 


FDEL=C F0L P 0N A t" P a £ G A t 


pr“ = Exit pressure ratio 


where C FQL = Momentum portion of the thrust coefficient 

r j 

P ON 

£g = Nozzle exit expansion ratio 
= Thrust coefficient efficiency 
= Nozzle Throat Area 
P a = Ambient Pressure 
A n = Divergence loss factor 
(NOTE: Vacuum thrust is FVAC = Cf0L P 0|\/V 


The divergence loss factor is calculated from 


A n = .5 + .5 C0S(AN2) 

where AN2 is the effective conical nozzle half angle. 


Two methods of calculation of AN2 are available in the NSCE Module. The 
first is an approximate method which calculates AN2 as the average of the 
effective cone angle for the contour (a) and the contour exit angle (e ) 
as recommended in Reference 7. The angles a and e ex are defined in ex 
Figure 13-2. The angle a is input as AN2 in the IBDATA NAMELIST AND e ex 
is input as THETEX. The approximate calculation of AN2 for a contoured 
-nozzle is made in the following statement: 


IF(THETEX.GT.Q.0)AN2=(AN2+THETEX)/2.0 

The second method of calculation for AN2 requires theoretical specific 
impulse data from a more sophisticated analysis of nozzle performance. 
The ratio of the contoured nozzle theoretical specific impulse to the 
theoretical specific impulse for an equivalent conical nozzle is input 
as SIRATC. The half angle for the equivalent cone is input as AN2 and 
the contoured nozzle effective angle is calculated by the following 
statements:: 

AN2R=PI*AN2/180. 

AN2R=AC0S(SIRATC*(C0S(AN2R)+1 .0)-l .0) 

AN2=180.*AN2R/PI 


13-4 



D256-1 0020-1 


13.1.1 (Continued) 

^cH?aitn e m!! 0t h d tha f. e l th ! r the fl ' rst ° r the second method of AN2 

ThETEX end STRATr 6 ’ ni ? t b ° th ' If a value is 1nDut f °>- both 

the case If > Fli**' 5 writes an error message and terminates 

a n sage f ° r n,1ther 15 ,nput - the case als0 terminates with 


13.1.2 


Nozzle Submergence Effects Simulation (I0PT=2 and 3) 


Ncl h fh he Stea ? y ? tate ( I0PT= 2) and non-steady state simulations (I0PT=3) 
tlo maL^Hi ?n 1C 9e ° metHc c u onfigLiration - This configuration assumes 
ffi^?n add J tl0n re97 S^ in the aft end as shown in Figure 13-3. 
H5f3n’J- 0nS I° r maS ^ addltlon region A are shown in Figure 13-4 and 
definitions for region B are shown in Figure 13-5, 
j 

NSCE gas dynamic theoryis based on the premise that the overall comnu- 

so'lution M nlc 1 ^ 1S - n0t mod i fied * This Premise requires that the 
f w r h „ a % dynam7C ?l uatl0ns ^r regions A and B not force the 
rltl out of region A to match the calculated nozzle mass flow- 

from'chnkpH finw n ^r° nS ^ in !; he nozz1e entrance plane are not computed 
dPfprm?naH d / 4 .U ^ and subsonic ™zzle flowrate calculations, but are 

eauatii^ ?nH th ^ 1S( r ntropic ^ ach numher relationships, the continuity 
.equation and the momentum equation. These equations, as well as the 

basic equations for region B, are iterated usinq a master iteration scheme 
until a consistent set of values is obtained. ' 


Thq master iteration scheme for the solution to the submerged nozzle gas 
ynamic equations for both regions A and B is shown in Figure 13-6. In 
both steady and non-steady simulations, the conditions at the forward 
eng of region B are calculated for some assumed stagnation pressure in the 
art-end of region B. The conditions in the nozzle entrance portion of 
region A are then calculated. A comparison of the total pressures cal- 
culated for the forward end of region B and the nozzle entrance portion 
of Region A is made. If the total pressures are equal within a tolerance 
,of 0.01 percent, the solution is complete. If the total pressures are 
n°t, equal within tolerance, a new stagnation pressure in the aft end of 
regions is computed using a modified slope prediction scheme and the 
iteration is continued until either the total pressures match or an 
iteration limit is exceeded. For cases in which the iteration limit is 
exceeded, an error message is printed and the case is terminated A 
pressure match caus ? s an end to NSCE calculations and returns 
program control to the calling routine. 


Parameter initialization is performed between statements 100 and 110. 
These parameters include conditions at the entrance to region A (total 
and static pressure p 1A), iteration loop counters (ITP1B, 
ITP2B, ITT1B), area parameters (AENT, AR, A2A), and combustion products 
properties data. Constant combustion products properties are assumed in. 
the variable NCSTR is not greater than 0.0. For NCSTR greater than 0.0, 
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FIGURE 13-3 ASSUMED AFT-END CONFIGURATION WITH A SUBMERGED NOZZLE 
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13.1.2 (Continued) 

combustion products properties data are derived from available tabular 
input data as a function of pressure PI A . Subroutine XLIN is called 
to linearly interpolate values of total temperature (TO), specific heat 
ratio (GAMA), and molecular weight (AMW) for the assigned value of P1A. 

A new gas constant, R, is then calculated from the updated molecular 
weight, AMW. 

Preliminary calculations are performed beginning with Statement 110 and 
continuing to Statement 120. The initial guess for the region B aft 
stagnation pressure is the region A entrance stagnation pressure, P2BT= 
P1AT. Next an estimate of density at the forward end of region Bis made 
assuming stagnation conditions. 


RH01B=P2BT/(12.*R*T0) . 


Burning rate calculations follow the density computations. The variable 
P is set to the reference pressure for burning rate calculation (in this 
case P=P2BT) and Subroutine RBSUB is called for the actual calculation of 
burning rate. The variable RB is returned from Subroutine RBSUB as the 
burning rate (NOTE: This general procedure is followed for all burning 

rate calculations in NSCE). 

THg mass generation term DWDOT is estimated for region B and the first 
guess for the velocity of gas at the forward end of B (U1B) is calculated 
from the steady state continuity equation. U1B carries a negative sign 
since its direction is toward the forward end of the motor being simulated. 
At this point the program logic chooses either a steady state solution 
(IOPT =2 ) or a non-steady state solution (IOPT =3) . The module engineering 
and programming descriptions for IOPT =2 and 3 are given in the following 
paragraphs. 

1 3. 1 .2.1 Steady State Solution of Submerged Nozzle Gas Dynamics (I0PT=2) 

The steady state simulation is performed between Statements 120 and 190. 

The basic equations for region A are given in Table 13-11; basic equations 
for region B are given in Table 13-ITI. These equations are iterated 
in the steady state simulation. Initial guesses for the required iteration 
parameters (UTMP, P1B, PTMP, and RHOTMP) are set up between the test 

IF( IOPT. EQ.3)G0 TO 190 

and Statement 120, and the iteration loop for pressure in region B is 
initiated. 


The region B iteration loop begins with Statement 120 and continue to 
Statement 140. First the burning rates at the forward and aft ends of 
region B are generated using subroutine RBSUB. Next combustion gas 
properties are updated for pressure PTMP using Subroutine XLIN if 
tabular data has been input to IBM. At Statement 130, the mass generated 
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13,1.2.1 (Continued) 

s ta t^contlnuft^equati on? ° Ci ‘ V i5 the " ^^ frol the* ^ady 
UTMP=-DWDOT/ (12. *RH0TMP*A1 B ) 

fRHniR^fc ca1cu ] a ^ value of density at the forward end of region B 
{?' H - C0 5 put * d from the perfect aas equation. The vaHabll TEMP 
is then formed and the test for convergence is applied vanabie TEMP 


IF(ABS(TEMP)/RHOTMP.LE. .0001 }G9 TO 140 


for the maximum number of iterations is performed. ^ d 

IF(ITP1B.LE. 21)60 TO 120 

to converae ' nfp^B^T 0 ?! v Con ^ lnues • In ^ event an iteration fails 
:, 0 C er e UTP1B.GT.21), an error message is generated indicator* 

Ste cSlStM""*** the ” Se a " d thS Pr ° 9ram “"tw’ retuM 

m «n+ a iAn n9 5 he best f° r convergence, the program loaic branches to state- 

S£f P ts? n ?t^U h * ? a ' UeS f ° r f°™ard-end conditions in Region B t^ 
tneir last iterated values. Steady state calculations for reaion A arp 

at 1 thp t f^r at H tat w me 2f nu 1 ber 15 °- First the values of burning rate 

oeneration W ?pr m a !?L a SndS A°[ regi ? n A are corn P uted and the mass 
S term for region A (0WD0T) is calculated as a function of 
average burning rate, propellant burning surface area (AANA) and pro 

E?U?UX ? a E U Next fl0wrate 1nt ° the ™))rin“anc P e plane 
is +»*!!£ IS ca1c ^ la f? d US1 n 9 a form of the continuity equation. Properti 

subroutine XI ? bm ^ stlon .P r ° duc f s are updated for pressure PI A using 

outme XL^ if required and Subroutine SUBSON is called to check for 

and ?h"^J l0W at . th S ™ 22 ] e throat - In the even t the nozzle is subsoniJ 

static Dressure°fpRFTaf d ( ICHgKE ~ g j, calculations for nozzle entrance 

Hit ' temperature z1 ^ stag ? at ) on Pressure (PON), nozzle entrant 

scan c temperature (TBETA) , some velocity at the nozzle entrance fCBFTAl 

RnR^ l0C P V ty in t | le . n022le ^trance (UBETA) are performed ?n Subroutine ' 
f l0giC branches t0 Statement 170. If the flow is choked 

Nli?h°nnmh ’ the r ? utln - con Unues with determination of nozzle entrance 
ratio ?rAMAi 3 S 3 ° f entrance area ratio (AR) and specific heat 

ratio (GAMA) by calling Subroutine Mach (Statement 160). Computations 
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13.1.2.1 (Continued) 

are then made for the nozzle entrance temperature (TBETA), sonic 
velocity (CBETA), and velocity (UBETA) using isotropic Mach number 
relationships. Next the static pressure in the nozzle entrance 
(PBETA) is calculated using the momentum equation and the nozzle 
stagnation pressure (PON ) is calculated from isentropic Mach number 
relationships. 

Statement 170 is the test for overall convergence in the motor aft- 
end section. If the pressures PON and PI BT are equal (+0.01%), the 
program logic branches to statement number 300. In the event P1BT 
is not equal to PON within tolerance, the iteration counter ITP1B 
is set to zero and a new estimate of the aft-end stagnation pressure 
(P2BT) is made using the modified slope method. After the new value 
of ; P2BT has been obtained, the iteration counter ITP2B is incremented 
and checked in order to test for more iterations than are allowed. If 
the number of iterations is not greater than maximum allowed, the 
iteration for region B parameters, is reinitiated at Statement 120. In 
the event that the maximum number of iterations allowed has been reached, 
an error message is generated from format statement 1010. Indicators 
are set for termination of the case and the program control returns to 
the cal ling routine. 

Upon overall convergence in the motor aft-end section, the parameters 
required by IBM for head-end pressure. iterations and final output of 
data -are set to the final computed values. Flowrate exiting region is 
defined by WDOT=MDBETA; static and total pressures at the' nozzle entrance 
plane are defined by P=PBETA and P0=P0N. The velocity and static tempera- 
ture are defined by U=UBETA and T=TBETA; Mach number and port area are 
defined by AMACH=MBETA and AP=A2A. The mass generated in region A is 
set by DWD0T=DWD0TA; average burning rate in region A is defined by 
RB=RBZ(NI+1 ) . Program control then returns to the calling routine. 

13.1.2.2 Non-Steady State Solution of Submerqed Nozzle Gas Dynamics 

( I0PT=3) 

The non-steady state simulation is performed between Statements 190 and 
300. Solution techniques for the non-steady state case are very similar 
to | the steady state case with the non-steady continuity and momentum 
equations substituted for the steady state equations. The basic non- 
steady continuity and momentum equations for regions A and B are given 
in ! Table 13- IV. In the IBM non-steady gas dynamic simulation, the 
temperature variables are assumed to be independent of time (dT/dt=0); 
the same assumption is employed here. 

Initial guesses for the required iteration parameters for region B are 
made between Statements 190 and 200. These iteration parameters are: 

Cl B - Sonic velocity at forward end of region B 

Ml B - Mach number at forward end of region B 
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guessed value of static pressure at 
and total region B aft-end pressure 
mean pressure (PMBZ) is initialized 
zero. Mean temperature over region 


13.1.2.2 (Continued) 

T1BG - Static temperature at forward end of region B 

PI BG - Static pressure at forward end of region B 

VGAZ - Volume of gas in region A for previous time step 

VGBZ - Volume of gas in region B for previous time step ... 

VGA - Volume of gas in region A for this time step 
VGB - Volume of gas in region B for this time step 
PMAZ - Mean pressure in region A for previous time -step 
i PMBZ - Mean pressure in region B for previous time step 

j 

The region B iteration loop begins with Statement 200 and continues to 
the calculation of the region B forward-end total pressure P1BT after 
Statement 270. First the burning rates at the forward and aft ends of 
reqion B are generated using Subroutine RBSUB. Next, the mass generated 
in region B (DWDOT) is calculated from the average burning rate, the 
propel 1 ant burning surface area (AANB), and the propellant density (DEL F ) . 
The' mean pressure (PMB) over region B is calculated from the current 
- - "the forward end of region B (P1BG) 

(P1BT), and the previous value of 
if the computation time (TIME) is 

zero, mean w .a,u, c B (TMB) is' defined by the arithmetic 

average of the current guessed value of temperature at the forward e 
of 'region B (T1BG) and the total temperature (TO j - Next the mass storage 
term (DWDT) for the continuity equation is calculated and the flowrate 
out of region B (MD1B) is computed. The velocity at , the 1 f °^ r ^ n e R d fuBM N 
of region B (U1B) is calculated and the mean value of velocity in B (UBM) 

is defined). 

The non-steady momentum equation is solved for the region B for, ward static 
pressure (P1B) by first calculating the momentum storage terms (TERM! and 
TERM2) and then computing PI B from 

PlB=P2BT+(2./(AlB+A2B) )*(TERM1+TERM2+U1B*MD1 B/GN0T ) . 

The nozzle stagnation pressure PON is calculated and a J e5t T J 0 !f h ^ 0, ;^J 9ence 
of the region B forward total pressure is then performed. If the test 
fails, a new value of P1BG is estimated using the modified slope method 
and a test for maximum number of iterations is on - iu e 

ITP1B LE 21, the program loaic branches back to the beginning of the 
iteration ood at Statement - 200. In the event of failure to converge _ 

( ITP1B GT.21 ) , an error message is generated from format 1020, lndica ors 
are set to terminate the case, and program control returns to the calling 

routi ne . 

Upon convergence of the forward static pressure, the program branches 

to Statement 230 where the forward-end velocity for region B (U1B) is 
updated and the combustion properties are interpolated for pressure P1B 
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13.1.2.2 (Continued) 

using Subroutine XLIN for cases in which tabular proDerties data were 
input (NCSTR.GT.O). At Statement 240, the static pressure TIB is cal- 
culated from 

T1 B=T0-( GAMA- 1 . ) *U 1 B**2/ ( 2 . *GNOT*GAMA*R ) . 

Next a check for temperature convergence is performed. If the temoerature 
has not converged within the specified tolerance, a new estimate of 
temperature T1BG using the modified slope method of projection and the 
pressure iteration counter ITP1B is reinitialized to zero. A test is then 
performed to determine if the maximum number of temperature iterations 
has been exceeded. If the value of ITT1B is less than or equal to the 
maximum value, the program logic reinitializes the pressure iteration 
loop at Statement 200. In the event the temperature iteration counter is 
exceeded, an error message is generated, indicators are set to terminate 
the case, and program control returns to the calling routine. 

Upon converging on temperature, the program logic branches to Statement 
270 where the Mach number (Ml B) , density (RH01B), and total pressure (P1BT) 
at the forward end of region B are calculated. Next the combustion 
properties TO, GAMA, and AMW are derived for pressure equal to the static 
pressure at the forward end of region A (P1A) for case in which tabular 
data are available (NCSTR.GT.O). At Statement 280, the mean pressure 
over region A is computed and the previous time step value is set if 
computational time is zero. Next, the burning rates at the forward and 
aft ends of region A are generated using Subroutine RBSUB and the mass 
generation term (DWD0T) for region A is formed as the product of the 
average burning, the propellant burning surface area (AANA) and the 
propellant density (DELF). The mean temperature for region A is defined 
by the mass-weighted mean temperatures of the entering gases 

TMA-(T1 A*WD0T+T0*DWD0T+T1 B*MD1 B)/( WD0T+DVJD0T+MD1 B ) 

and the mass flowrate across the nozzle entrance plane is calculated 
from the continuity equation 

MDBETA=WD0T+DWD0T+MD1B-VGA*(PMA-PMAZ)/(12.*R*TMA*DELT)- 
PMA* ( VGA- VGAZ ) / ( 1 2 . *R*TMA*DELT ) . 

Subroutine SUBS0N is called to check for subsonic flow at the nozzle throat 
In the event the nozzle is subsonic and therefore not choked (ICH0KE=0), 
calculations for nozzle entrance static pressure (PBETA), nozzle stag- 
nation pressure (PON), nozzle entrance static temperature (TBETA), sonic 
velocity at the nozzle entrance, (CBETA), and velocity in the nozzle 
entrance (UBETA) are performed in Subroutine SUBS0N and program logic 

branches to Statement 285. 

; 1 

Sonic flow in the nozzle throat (ICH0KE=1) causes the routine to continue 
with the determination of nozzle entrance Mach number as a function of 
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entrance area ratio (AR) and specific heat ratio (GAMA) by calling 
Subroutine MACH. Computations are then made for TBETA, CBETA, UBETA 
■md mean velocity over region A (UMA) and the static ’pressure in the 
ozzle entrance is calculated by 

PBETA=1 ./AENT*(P1A*A1A-P1B*A1B+(P1A-P1 B) 

*(A2A-AlA)/2 .Q-VGA*UMA*( PMA-PMAZ) 

/ ( 1 2 . *GN0T *R*TMA*DELT ) -PMA*UMA 
* ( VGA- VGAZ ) / ( 1 2 . *GN0T *R*TMA*DELT ) 

-UBETA*MDBETA/GNOT +U1 AWT/GNOT )+Ul B*MD1 B/GNOT 

Next nozzle stagnation pressure (PON) is computed and a test for overall 
convergence in the motor aft-end section is made at Statement 285. If 
the total pressures PI BT and PON have failed to converge, the iteration 
counters for region B static temperature and pressure are set to zero. 

A new guess at region B aft-end total pressure is then made using the 
modified slope method and a check is executed to determine whether the 
maximum number of iterations on region B aft-end pressure has been 
exceeded. In cases where the maximum number of iterations has not been 
exceeded ( ITP2B.LE.21 ) , the program logic branches to the beginning 
of the region 3 iteration loon at Statement 200. If a case fails to con- 
verge in the number of iterations allowed, an error message is generated 
from format 1040, indicators are set to terminate the case and program 
control is returned to the calling routine. 

Upon successful convergence of the total pressures P1BT and PON, the 
program logic branches to Statement 300 where the parameters reauired by 
IBM for head-end pressure iterations and final output of data are set 
to required values. A complete description of the parameters set at 
Statement 300 is found in paragraph 13.1.2.1. 

13.2 SUBROUTINE MACH (ARINPT, GAMA, M) ENGINEERING DESCRIPTION 

Subroutine MACH calculates the subsonic Mach number (M) from an input 
area ratio (ARINPT) and specific heat ratio (GAMA). MACH is called from 
the subsonic analysis routine, the steady state analysis, and the non- 
steady state analysis routines of the NSCE Module. The statement function 

AR(AG1)»(1./AG1)*(( (2. /(GAMA+1 .))*(! .+( (GAMA-1. )/2.)* 

(AG1**2 )))**( (GAMA+1 . )/ (2 .* (GAMA-1 .)))) 

is used to calculate the area ratio (AR) from the argument AG1 . This 
expression for AR is derived from the isentropic Mach number versus 
area ratio relation in gas dynamic theory. The area ratio versus 
Mach number Relation is broken into three regions for speed of computation 

ARINPT. GE. 2. 4 

ARINPT. GE.l .1 (AND .LT.24) 

ARINPT. GE. 1.0 (AND .LT.1.1) 
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If the input area ratio does not fall into one of these reqions, an 
error message is generated from format Statement 1 and the' run terminates. 

An initial bracketing guess of Mach number for input area ratios greater 
than or equal to 2.4 is made between Statements 10 and 20, and values 
for the calculated area ratios AR1 and AR2 are confuted for these 
bracketing Mach numbers. Statement 23 is the test for convergence which 
forces the calculated area ratio AR2 to be equal to the input area ratio 
ARINPT within a tolerance of 0.0001. Upon converaence within the re- 
quired tolerance, program logic branches to Statement 50 where the output 
variable M is set to the final computed value of M2 and the subroutine 
is exited. If the iteration fails to converge within the requirements, 
a new guess for M2 is made between Statements 23 and 25 using the modified 
slope method, and a test is performed to determine whether the iteration 
counter ITER has exceeded the maximum allowable value of 15. If ITER. LE. 15, 
the program branches to Statement 20 for a new iteration. If ITER . GT ! 1 5 * 
an error message is generated from Statement 25 and the run terminates. 

Bracketing Mach number estimates for area ratios less than 2.4 and 
greater than or equal to 1 . 1 are made between Statements 30 and 40. The 
computations then enter the iteration loop at Statement 23.' The bracketing 
Mach number estimates for ARINPT less than 1.1 and areater than or equal 
to 1.0 are made between Statements 40 and 50. The computations then enter 
the iteration loop at Statement 23. 

13.3 SUBROUTINE SUBS0N (ICH0KE , IOPT ) ENGINEERING DESCRIPTION 


Subroutine SUBSON tests for sonic flow at the nozzle throat and performs 
iterative computations to obtain the nozzle entrance Mach number (MBETA) , 
static temperature (TBETA) , sonic velocity (CBETA) , velocity (UBETA) 
static pressure ( PBETA) and total pressure (PON) for cases in which the 
flow is subsonic in the. nozzle throat. One basic assumption implicit 
in the.SUBSON analysis is that the nozzle stagnation pressure is closely 
approximated by the total pressure in the forward end of region A. SUBSON 
^ from both the steady and non-steady analysis routines of the 
NSCE Module. The initial part of the subroutine sizes and locates the 
Real and Common variables used in the subroutine. 


The variable ICHOKE indicates subsonic (ICH0KE=0) or sonic flow (ICHOKE =1 ) 
at. the nozzle throat. ICHOKE and the iteration loop counter ITER are 
initialized to zero before Statement 5. The multiplier variable STO 
is used to zero out the non-steady terms in the momentum equation when 
a steady state case is executed. STO is initialized to IOPT -2 before 
Statement 5. A test is then performed to check for vacuum ambient 
conditions (PA=0.0) at the nozzle exit plane. If vacuum conditions 
exist, the nozzle is choked and ICHOKE is set to 1 at Statement 5. 

Program control then returns to the calling routine. 
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’•or cases in which 



thelroaram looi^h, If h (?A f' ^.LE.PRCRl’f )T the nozzle is choked and 
: h J tn nnf a 5 ra ? ches to Statement 5. At Statement 5, ICHOKE j s 
seL to one and control returns to the calling .routine. 

In cases for which PA/ PON is Greater than prtrtt a _«•>- -i _ 
Mach number at the nozzle exli(MEX) Is made b)’ Calculat,on of 


MEX=S0RT({2. 


( GAMA - 1 . ) ) * ( ( PON/ PA ) ** \ ( GAMA- 1 . ) / GAMA )-!.)) 


"Lament Fand^-^ ° r ® qual , 1 -°» the Program logic branches to 
_i.a lumtnt b and ex.ts tu the calling routine. 

comnutpd°anH c f** $ (H£X ’ LT ’ 1 ’ 0 > ■ «* exit area ratio AEXAS is 
computed and the entrance area ratio AENTAS is calculated. A test is 

= Nhcon?r f ^ !Tied ° n / AENlAS t0 .check for sonic flow in, the throat and 

If ArMTfl^'!c W i at 1 the case of a normal shock in the nozzle, 

h^SrhI? S ri%l e r '' 2V* 0, the throat is choked and Pnoqram logic 
branches to Statement. 5 to exit the subroutine. 


c or 

the 


ases in which AENTAS is greater than or eoual to 1.0, the flow at 


-hroat is subsonic. The Mach number at the 


nozzle entrance (MB ETA) 


)^ rr ca ]SV 1a, '® d rn subroutine MACH as a function’ of entrance area ratio 

rRFTfl iioc^n 1 ratio ( GAMA )- Next calculations for TBETA, 

CBETA, UBE , A, UMA, PBETA andPONC (nozzle stagnation pressure) are made 
usmg isentroDio Mach number relationships and the momentum equation. 

A .check for pressure convergence is then performed on PON and PONC. If 
the pressure has converged within a tolerance of 0.001, procram control 
returns to the calling routine. If the pressures have not converged 
a new estimate of PON is made and a check is made to determine whether 
the maximum nunpe^ of iterations has been exceeded. If the iteration 
counter ITER is less than 25, a new iteration is made by branching to 
statement 15. If the maximum iterations have been exceeded, an error 
message is generated and program control returns to the calling routine. 

13.4 NOZZLE SUBMERGENCE AND CONTOUR EFFECTS MODULE LIMITATIONS 

i he limitation^ on the use of NSCE are as follows: 

(1) The submerged nozzle entrance plane must be perpendicular to the 
motor centerline and centered in the port. 

(2) Region A must be defined large enough to allow stagnation of the 
reversed flow from reoion B. 
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T .0 INTRODUCTION 

This Appendix contains the revised pages and a list of the pages that 
should be deleted from Boeing Document D2- 1 25286-1 , "Solid Propellant 
Rocket Motor Internal Ballistic Computer Program - Program Manual", in 
order to make it applicable to the Internal Ballistics Module used in 
SRB-II. The revised pages should replace the pages with the same page 
number currently in the document. The deleted pages contain descriptions 
of parts of the computer proaram that are not used in the Internal 
Ballistics Module. Table A-l contains a list of the pages to be deleted. 
Table A-2 contains a list of the pages to be revised. 
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PREFACE 


This document Is volume one (02— 125286— 1 ) of three 
volumes. It describes a FORTRAN IV digital computer 
program developed for analysis of solid rocket motor 
Internal ballistics. Volume one, "Program Manual, 11 
explains the theory and describes the mathematical 
model, program capabilities and Information necessary 
for program maintenance and revision. Volume two, 

■ "Usler's Guide," (02-125286-2) describes program op- 
tions, preparation of program input data and program 
output. Volume three, "Sample Case Results and Program 
Listings," (02-125286-3) contains the sample case re- 
sults and complete program listings of the computer 
program. The document is divided into three volumes 
for handling convenience. Section numbering is con- 
tinuous through the three volumes. A complete table 
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ABSTRACT 


This report describes a FORTRAN IV digital computer pro- 
gram developed to calculate internal ballistic performance 
of solid propellant rocket motors with high burn log rates , 
short burning durations, and high vehicle accelerations. 
Forked wagon wheel, conventional wagon wheel, standard 
star, slotted-cone, and circular port monolithic and 
Segmented grain designs may be considered. Accurate 
description of an inert sliver In the cylindrical Section 
Ijs allowed for all but the forked wagon wheel grain design, 
the effects of anisotropic burning of the propellant may 
be considered. The storage of mass and momentum (capac- 
itance effects) and vehicle acceleration are Included In 
the internal gas dynamic equations. ignition transients 
may be calculated. Tabular input of the motor grain 
description is available for special grain configurations 
that cannot be described by the program geometry constants. 
Motor performance parameters such as delivered and vacuum 
thrust and total Impulse, fore-head and aft-head total 
pressure, nozzle discharge f!ow ? fore-head and aft-head 
total pressure Integrals, pitch and roll moments of 
Inertia, center of gravity locations, burn surface area, 
and weight of propellant remaining are printed for each 
time interval. 


This report Is divided Into three volumes. Volume one Is 
the Program Manual , volume two Is the User 1 s Guide , and 
volume three is the Sample Case Results and Program Listings.. 
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The following Key Words Identify the major program capa- 
bilities: 

Internal Ballistics 
Solid Propellant Rocket Motor 
Monolithic Grain 
Segmented Grain 
One-Dimensional Gas Dynamics 
Steady Flow Gas Dynamics 
Non-Steady Flow Gas Dynamics 
Isotropic Propellant Burning 
Anisotropic Propellant Burning 
Vehicle Acceleration 
Ignition Trans lent Interval 
Web -Time Interval 
Tall-Off Interval 
Fore-Head Section 
Aft-Head Section 
Cylindrical Section 
Center of Gravi ty 
Moment of Inertia 
Grain Geometry 
Nozzle 
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DEFINITION OF TERMS 


m*' 

Mg, : 





Jhe following general definitions apply throughout this 
document: 

Internal Ballistics : Analysis of the burning characteristics 

and progression of the propellant surface, dynamics of the gas 
flow, and the gas generation in the interior of solid propellant 
rocket motors. 





4 


m 


Performance Characteristics : Parameters that specify motor j 

performance, e.g., thrust vs time, maximum chamber pressure, j 

specific impulse, and burn time. 

Gas Dynamics : Study of the generation and flow of combustion ! 

products along the propellant grain and through the nozzle. I 

Steady Flow Gas Dynamics : Mass, energy, and momentum within ; 

a control volume are constant with time. 

' 

Non-Steady Flow Gas Dynamics : Mass, energy, and momentum with i n 

a control volume are not constant with time. { 

. . I 

f 

Grain Design : The cross sectional grain configuration of the 

propellant. 

| i 

Monolithic Grain : The propellant grain Is one single piece. 

• i 

- " i' 

Segmented Grain : The propellant- grain is divided up into a 

number of longitudinal segments. 

S lots : The region between the segments which does not contain 

propellant. 

Web ; The minimum distance between the grain surface and the 
case wall. 

j . 

Core : The region occupied by the combustion gases. 

Reference Planes : The stations in the cylindrical section of 

a motor where the grain design is specified. 

Increment Dividing Planes : The stations in the cylindrical 

section of the motor where the solution of the internal gas 
dynamic equations is obtained. 

Mass Addition Region : The region between increment dividing j 

planes . i 
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Ignition Transient Interval : The time required to obtain motor 

operating pressure, 

■I ' ... 

Web-TI me Interval ; The time required to burn through the web. 

j 

Tat 1-off Interval : The time Interval after web burn through. 

Isotropic Propellant Burning ; Where the burning rate character- 
istics are independent of distance burned. 

Anisotropic Propellant Burning : • Where the burning rate character- 
istics are dependent on distance burned. 
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INTRODUCTION 

Tljls report describes a FORTRAN IV digital computer program, 
developed by The Boeing Company for operation on an IBM 7094 
computer with an IBSYS version 13 monitor system from an earlier 
Thlokol Chemical Corporation program, to perform dynamic analyses 
of solid propellant rocket motor Internal ballistics. A complete 
description of the mathematical model, the engineering equation 
development, the method of solution, and detailed programming 
Information Is presented to explain program principles and theory 
and to facilitate program maintenance and revision. 

This program was developed under contract from the Army Missile 
Command Propulsion Laboratory, Redstone Arsenal, Alabama, 
contract number DA-01-021-AMC-l5557(Z) by the Engineering 
Digital Computing Organization 2-2640, with support from the 
Missile and Information Systems Division, Flight Technology 
Propulsion Organization 2-5711 of The Boeing Company. 

General Information 

The report is divided Into three volumes. Volume 1, the Proqram 
Manual, provides a technical explanation of the theory, mathe 1 
sRd <„ I ca i model, program capab 1 1 1 1 les and Information necessary 
for program maintenance and revision. Volume ||, the User's 
Gujjde, describes program options, preparation of input data and 
program output. Volume 111, the Semple Case Results and roqram 
L ist tngs , contains the complete program listings of the computer 
program. The following paragraphs describe briefly the sections 
of the report comprising each volume. 

Volume 1 

The Program Capabilities and Limitations, Section 2.0, Indicates 
the capability the program has to evaluate grain designs and 
Internal ballistics and the program limitations that exist In 
these areas . 

The Method of Solution, Section 3.0, describes the method the 
program uses to obtain the internal ballistic solutions and the 
organization of major program sections which divide the solution 
Into logical blocks or core loads that reside In cere at separate 
times. r 

Jhe Gas Dynamic Equation Development, Section 4.0, presents the 
development of the equations for the non-steady flow gas dynamics 
for both segmented and monolithic motors, propellant description, 
and tor an accelerating reference system. In general, this 
section describes modifications made to the original Thlokol 
Chemical Corporation program for conducting design studies of 
solid propellant configurations (Reference 1) to simulate the 
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Internal ballistics of high burning rate propellants with charac- 
teristically short burn durations. These modifications were 
made specifically to Include the storage of mass and momentum 
In the gas dynamic equations, to consider the effects of very 
high vehicle acceleration on the internal ballistics, and to 
study anisotropic propellant burning. As a result of these 
modif Ications, ignition transients may be calculated. 

The Geometry Equation Development, Section 5.0, explains In 
detail the sei,up and solution of the grain geometry equations 
which determine the perimeter length, cross sectional area, burn 
surface area, moments of inertia, and center of gravity location 
of the various grain options and longitudinal configurations. 

The equation development and figures presented In this section 
were obtained from References 1 and 3 . 

The Detailed Programming Information, Section 6.0, presents a 
brief description of all prograi subroutines, macroscopic program 
logic flow charts, a description of the computing system and 
program storage allocation, program diagnostic aids, and a list 
of the program nomenclature. Appropriate comments are placed 
throughout the program listings as a supplement to the subroutine 
flow charts to assist In program maintenance and revision. 

The Results, Section 7.0, presents a comparison of a computer 
prediction with three full scale HIBEX motor firings. Dimen- 
sionless fore-head pressure traces are shown for the computer 
prediction and the motor firings. 

Volume I I 

The User's Guide, Section 8.0, presents an explanation of the 
required program Inputs, sample cases showing the available 
program options, a description of the output format, and the 
required control cards to permit effective program use and 
operation without knowledge of the program technical aspects. 

This section Is arranged to be complete without reference to 
the program manual technical sections and may be used Independent 
©f the program manual. 

Volume I 1 1 

The Listings, Section 9.0, contains the sample case results and 
program listings of the computer program. 
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1.2 History of Program Development 

I r! March I960, work was Initiated at the Thlokol Chemical 
Corporation, Redstone Division, under the auspices of Systems 
Analysis Laboratory, Army Rocket and Guided Missile Agency, 
Redstone Arsenal, Alabama, for the development of a solid 
propellant rocket motor design program (References 1 and 2). 

In 1962, The Boeing Company received a copy of this program, 
and In 1963 developed a segmented motor version. In 1964, 
the Saturn Branch of the Aerospace Division of Boeing at New 
Or] leans converted the SCAT machine language program to FORTRAN 
II for operation on the IBM 7094 computer. In 1965 > The 
Boeing Aerospace Division In Seattle, Washington, converted 
the FORTRAN II version to FORTRAN IV for operation on the SRU 
1107 and made the modifications discussed In Section 1.1 for 
the H I BEX contract to add the transient capability. In May 
1966, The Boeing Company proposed to the Army Missile Command 
to segment the existing SRU 1108 program, perform the necessary 
conversion for operation on the IBM 7094, and completely 
document the advanced program version.. A contract was received 
In July 1966 from the Army Missile Command for a 6 month 
development effort to perform the required conversion. 
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PROGRAM CAPABILITIES AMD UMITATU :.S 

This cc | jter program was cevelor'd . ■> calculate solid propellant 
rocket motor internal ballistic' Because of its development 
from earlier grain design and be 1 1 i s : r performance programs, 
additional capabilities are pres nt. Throughout the development 
effort, all prior program capabilities have been retained so 
that a general program exists with bot*' grain design and internal 
ballistic evaluation capability. 

Program Capabilities 

The basic propellant grain design is the forked wagon wheel, 
however, the grain design equations are general so that the con- 
ventional wagon wheel, standard star and circular port as well 
as the slotted-cone may be described by variations in the input 
data. Figure 2.1 shows the five -rain design options. Other 
more complicated grain desi ;rs ay be evaluated by describing 
the perimeter length and burn area at. a function of distance 
burred and input to the computer program as tabular data. 

The propellant grain configuration may be either monolithic or 
'egmented with up to lb slots. The propellant case and port 
cavity nay be either cylindrical or tapered. The fore-head 
section configuration may be a straight through grain or may 
contain a complete web. Figure 2.2 shows the various motor 
configuration options. The aft-head section configuration is 
a straight through grain. 

The propellant characteristics are described by definitive 
properties of the combustion gases and a generalized burning 
rate equation. The propellant gas properties may be held 
constant or may be vailed as a function of the static pressure 
in the port cavity. The burning rate model includes erosive 
burning and will allow either isotropic or anisotropic burning 
of the propellant surface. 

Either steady or non-steady flow gas dynamics are available to 
obtain the internal ballistic solution. The steady flow gas 
dynamics solve the momentum and continuity equations without 
consideration of ti~e dependent terms such that there is no 
storage of mass or momentum (no capacitance effects). The non- 
r teaciy flow ca s dynamics solve the momentum and continuity 
equations with respect to time so that the storage of mass and . 
momentun is considered and the start transient and tail-off 
intervals may be determined. 

The effects of vehicle acceleration on the internal ballistic 
solution nay be considered. The acceleration term is included 
in the momentum equation. 

I 

The effect of a tapered inert sliver may be considered in the 
cylindrical section for all but the forked wagon wheel grain 
des i gn . 
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Program Capabilities (Continued) 


The following Is a summary of the program capabilities: 

1.0 Grain Design 

A. Circular Port 

B. Standard Star 

C. Slotted-Cone 

D. Conventional Wagon Wheel 

E. Forked Wagon Wheel 

F . Tables of Perimeter and Burn Area as a Function 
of Distance Burned can be Input 

2.0 Motor Configuration 

A. Cylindrical Section 

1) Mono! Fthic grain 

2) Segmented grain 

3) Tapered inert sliver 

B. Fore-head Section 

1) Straight through grain 

2) Complete web (head-end with web) 

3) Tabular data 

C. Aft -head Section 

1) Straight through grain 

2) Burning on aft face 

3) Tabular data • 

3.0 Propellant Characteristics 

A. Isotropic Propellant Burning 

B. Anisotropic Propellant Burning 

C. Erosive Burning 

D. Variable Gas Properties (function of pressure) 

4.0 Internal Ballistics 

A. Steady Gas Flow 

B. Non - Steady Gas Flow 

1) Ignition transient Interval 

2) Web-time interval 

3) Tail-off interval 

C. Vehicle Acceleration 
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Program Output 

The program provides the following output: 


1.0 Motor 


A# Delivered Thrust 
BJ Vacuum Thrust 

C. Fore-head Total Pressure 

D. Nozzle Total Pressure , ntea ral 

E Fore-head Total Pressure Time Integral 
F*. Nozzle Total Pressure Time Integral 

G. Delivered Total Impulse 

H. Vacuum Total Impulse 

I Nozzle Discharge Flow Rate 

j* polar and Rectangular Moment of Inertia 

K. Center of Gravity 

2«0 Propellant Characteristics 

a Welaht of Propellant Remaining B . 

S' Forward Tangent Plane Propellant Burning Rate 
C* Aft Tangent Plane Propellant Burning Rat 
D*. Total Weight of Propellant Expended 

3.0 Grain Geometry 

A. 1 Cylindrical Section Burn Area 

B. Fore-head Section Burn Area 

C. Aft-head Section Burn Area 

D. Grain Segment Face Burn Area 

E. Total Motor Burn Area 

4.0 Nozzle Characteristics. 

Effect I v^Expans Ion Ratio (flow separate accounted for) 
c*. Pressure Ratio Across Nozzle 
D. Momentum Portion of Thrust Coefflcte 

Program Assumptions 

of the entire section. 
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Program Assumptions (Continued) 
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3. Mas* addition occurs i nc t intaneous ly with no velcc ; t, 
component along the mot" s ior.g i tud i na 1 axis (dZ/ac C) . 

4 . The products of combustion )bey the perfect gas lav/. 

5. The gas flow is one-dirv:s local and adiabatic. 

r' , Per 3 given cross-secT i >< oe^cend Icu I ir +0 the longitudinal 
■:v!«, the combustion ter • is constant. 

7. The heat capacity of th> u embus t Ion gases is constant. 

8 . The friction force.s of the combustion gases in the port 
cavity are negligible. 

9. The moments of inertia about the pitch and yaw axis are 
equa 1 . 

L Imi tat ions 

The program has the following limitations: 

1. A maximum of 18 reference planes are allowed in the 
cylindrical section to describe the grain design. 

2. A maximum of iOO increment dividing plares are allowed 

in the cylindrical sect in to define the mass addition 

* 

regions. If this restriction is exceeded by defining 
a dZ too small, the case execution will be terminated 
and an appropriate comment will be printed. 

3. A maximum of la siots are allowed for segmented motors. 

4. The slottcd-cone grain design is applicable only to the 
cylindrical section. Burn area tables must be input 
for the forward an 1 aft domes when this grain design is 
used . 

5 . The inert sliver option is restricted to the cylindrical 
section and does not apply to either end section. 

6 . The effects of an accelerating reference system can be 
determined only tor non-steady flow gas dynamics. 
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METHOD OF SOLUTION 

The program calculations are based on the geometrical model 
shown in Figure 3.1. The motor configuration is divided into 
three sections: , the head-end section u'orv/ord dome), the 
cylindrical section, and the aft-head section (aft dome) or 
nozzle. The grain geometry Is described by input reference 
planes within the cylindrical sect ion. The cylindrical section, 
which hay contain either a monolithic or a segmented grain, is 
further divided into a number of increments or mass addition 
regions by the location of increment dividing planes, at each 
reference plane and at specified intervals dz) from each re- 
ference plane until either a segment slot interface or the next 
reference plane is passed. During the computer solution of the 
gas dynamics, port per i, meter, port cross sectional area and mo- 
ments 01 inertia are determined at each increment dividing plane 
by linear interpolation between adjacent reference planes. Mass 
addition is assumed to occur as g step process between two in- 
crement dividing planes. 

The proqram method of solution is divided into four separate 
control routines linked toe-ether by a main centre! grog ram 
and a common data region. Each routine is unicue, but depen- 
dent on precedi no routines Generated date. The f ftw 
chart shown in Figure 3*2 presents the macroscopic program 
order of solution w 1 T-» the separate routines linked tocether. 

The first control routine contains the subrentings reauired 
to read :the input data, initialize the data cells, compute the 
input reference plane constants, locate the increment dividing 
planes, check for input data errors, and print the program inputs 
and computed constants. 

The second control routine contains the geometry subroutines 
required to compute the initial propellant cross section area 
and perimeter length for the cylindrical section reference planes, 
the aft-head and straight through grain fore-head sections burn 
ar\=> end initial propellant volume as a function of distance 
burned. The moments of inertia and centers of gravity for the 
aft-head and straight through grain fore-head sections and the 
radius of gyration for the cylindrical section are also calculated. 
The computed values for each section are stored in tables for use 
during the solution of the internal ballistics in the fourth 
centre I rout i re. 

The third control routine contains the geometry subroutines 
required to compute the initial propellant volume, burn area, 
moments of inertia, and CG location tables of the head-end with 
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web. i he third routine is executed only if a head-end with web ! 

is required afterthe cylindrical section and aft-head section 
geometry calculations have been completed in the second routine. 

t 

After the grain geometry calculations are performed In the first, ! 
second, and third routines and the perimeter and area tables 
have been established, the internal ballistic solution is initiated! 
in the fourth routine by determining the geometry values of 
each reference plane and each end section from a table look-up ! 
procedure in the geometry tables. For steady flow conditions, an 
initial estimate of the fore-head pressure is made, and the burning ’ 
rate (which: is assumed to be constant over the entire head-end I 

section) is determined as described in Section 4.L1. With this I 

burn rate and the tabular value of the fore-head burn area, the j 
Instantaneous value of mass addition is determined for the fore- 
head section. The state and gas dynamic properties of the 
propellant at the forward tangent plane, the first increment 
dividing plane, are determined from the simultaneous solution 
of the momentum and continuity equations assuming perfect gas 
relationships. 

The grain geometry at the first increment dividing plane is then 
determined and stored in temporary locations for future reference. ' 
The grain geometry of increment dividing plane two is determined. j 

The increment section mass generation rate is' determined from ! 

the, perimeter lengths of increment dividing planes one and 
two, the increment length, and the burning rates at the upstream 
adjacent increment dividing planes. The propellant properties and 
mass flow at increment dividing plane two are then determined by a j 
simultaneous solution of the momentum and continuity equations 
for either steady or non-steady flew conditions. 

The above procedure is repeated for each cylindrical section mass 
addition region. Once the cylindrical section is complete, the 
same general calculations are performed for the aft-head section. 

The port cross-sectional area and perimeter length and burning 
rate are assumed to be constant in the aft-head section and 
identical to the values at the aft tangent plane. 

• . '-.j ' " ■ •' - 1 i i ’ V 

The nozzle throat area is compared to the maximum value that will 
maintain subsonic flow in the port. If this maximum value is 
exceeded, the program prints an error comment and terminates the 
case. If this maximum value is not exceeded, the flow rate of 
propellant discharge through the nozzle is computed on the basis 
of isentropic flow. This flow rate is compared to the flow rate 
of propellant discharged from the grain. If these two values do 
not agree within .1 percent, the fore-head pressure is adjusted 
and the program returns to the fore-head and repeats until 
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3.0 Method of Solution (Continued) 


■convergence Is attained. Once equilibrium is reached, additional ■ 
ballistic properties are computed and the performance data is 
printed. j 

i .... ! 

Following the performance printout, the thickness burned in each ! 
Increment dividing plane and slot Interface Is then determined I 

from the previous web thickness. A check is then made to see 
If; burnout has occurred at any of the increment dividing planes. ! 
If; burnout occurs, a comment is printed that the increment 
dividing plane has burned out. The progression of the slot inter- 
faces for segmented motors Is indicated by a printout of the in- 
crement dividing plane longitudinal location. 

The time is then incremented by the computed time Interval and 
the program returns to the fore-head tc- compute new equilibrium 
conditions and determine new values of the perimeter length and 
port cross section area at each increment dividing plane and burn j 
area for each end section. This process is then repeated until the 
termination option is exceeded. 

| • 

The general program solution of the internal ballistics outlined 
above Is modified for non-steady flow conditions. When the start 
transient interval is computed, the fore-head pressure is defined 
by; tabular input of the fore-head pressure as a function of time, 
or the burn rate coefficient is defined by tabular input of the 
burn rate coefficient as a function of distance burned. When the 
fore-head pressure is input for the start transient, the burn 
rate coefficient is varied to obtain convergence; and when the ; 

bu rn rate coefficient is input for the start transient, the fore- | 

head pressure is varied, as for steady flow conditions, to obtain 
convergence. When the fore-head pressure is input for the start 
transient, an initial estimate of the burn rate coefficient is 
made by computing a first guess of the burn rate coefficient from 
the motor configuration parameters and the fore-head pressure 
variation. With this burn rate coefficient, the instantaneous | 
value of mass addition and mass discharge is determined for the ! 
head-end section. The propellant gas properties for the first 
Increment dividing plane are then determined from a simultaneous 
solution of the non-steady gas flow equations as above. The 
remainder of the ballistic solution is unchanged. 
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4.0 GAS DYNAMIC EQ.UATI ON DEVELOPMENT 

The static and total pressure, temperature, velocity, and flow 
rate of the gas along the length of the propellant grain and 
through the nozzle are required to determine the progression of 
the propellant burning surface and motor performance parameters 
such as chamber pressure, thrust, and total impulse. These para- 
meters are obtained frotn an iterative solution of the perfect 
gas law and the equations of continuity, momentum, and energy for 
one-d imens i ona 1 gas flow. The gas flow along the propellant 
grain is determined by dividing the grain into a number of incre- 
ments which are termed mass addition regions. Two control volumes 
are shown in Figures 4.1 and 4.2 whiich define the mass addition 
regions fpr the monolithic and segmented motor configurations 
shown in Figure 4.3. The gas dynamic equations, which. are solved 
for each mass addition region along the propellant grain, are 
described in the following sections. The Isotropic and erosive 
burning rate equation, anisotropic mass generation model, and 
propellant gas properties required for the calculations are also 
described. | ■ 

4,1 Gas Dynamics for incremental Control Volumes 

The solution of the continuity, momentum, and energy equations 
for the mass addition regions along the propellant grain and 
through the nozzle are described in this section. Steady flow, 
non-steady flow, or non-steady flow with acceleration may be 
selected. 

The following assumptions are basic to the development of the gas 
dynamic equations: 

1. Mass addition occurs as an Instantaneous process with no 
velocity component parallel to the motor axis (dZ/dt = 0). 

2. The products of combustion obey the perfect gas law. 

3. The gas flow is one-dimensional and adiabatic. 


4. The friction forces of the combustion gases in the port 
cdvlty are negligible. 

5. The static pressure is constant across the fore-head section, 
i.e., no static pressure loss resulting from mass addition 
or area change. 

6. The port area and perimeter are constant across the aft-head 
section from the aft tangent plane to the grain exit, i.e., 
constant area duct£ 
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Gas Dynamics for Incremental Control Volumes (Continued) 

The control volume or mass addition region Inlet is defined as 
Station 1 and outlet is defined as station 2 as shown in Figures 
4.1 and 4.2. The analysis of the mass addition regions along the 
grain segments is accomplished in subroutines AIBSUB and AIBST 
to obtain the solution for the discharge pressure, temperature, 
and flow rate from known inlet conditions at station 1 and a 
known value of the Instantaneous mass generation rate. The In- 
stantaneous mass generation rate Is determined from the port . 
perimeters, upstream burning rates, and mass addition region incre- 
mental length as follows: 


dW - 


(L . R. , + L 9 R K9 ) 

V P 1 bl P 2 - AZ p f 


where 


'bl 


b2 


mass generation rate, lb/sec 
port perimeter at station 1, in 
port perimeter at station 2, In 
mass addition region length, In 

3 

solid propellant density, lb/in 

burning rate at station 1, In/sec 
(determined from conditions at adjacent 
upstream Increment dividing plane) 

burning rate at station 2, In/sec 
(determined from conditions at adjacent 
upstream increment dividing plane) 


A mass balance for the slots between the grain segments is ob- 
tained In subroutine SLOT. The Instantaneous mass generation 
rate at each slot Interface is determined as follows: 

dW = A f p f a P n 


= burning area at slot Interface, In 
P «= slot Interface static pressure, lb/In 
a - slot burn rate coefficient 

n = slot burn rate coefficient pressure exponent 

The general energy equation and the perfect gas law are applied 
at station 2 to obtain the state properties: 
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Gas Dynamos for Incremental Control Volumes (Continued) 


2 9 C R r (T 0 - T) 

7-1 


(general energy) 


12 p R T 


(perfect gas) 


The continuity and momentum equations are iterated to obtain 
the discharge pressure, P^, and flow rote, f° r each mass 

addition region. For steady. flow conditions, the basic equa- 
tions are as follows: 


12 Pl Aj Uj + dW = 12 p 2 A 2 U 2 


(continuity) 


P 1 + P 2 

P 1 A 1 + -V- 2 < A 2 ' A l> ' P 2 A 2 


12 p. A U. U dW 

" (U 2 - U.) + (momentum) 

9 o 9 o 


For non-steady flow conditions, the basic equations are as 
follows: 


• ! . * dW 

W 2I - W 1 + dw - £ 


dW a ! / P 1 + p 2 \ V 


(continuity) 


dt = St \ T i + t 2 / 12R 


(perfect gas) 


3 r (0 UA) „ , < A 2 U 2 A 2 ■ "1 U i A i> 

St J ^~ dX+ — : i~ — 


V P 2 "V 
= P 1 A 1 " P 2 A 2 + 2 


(momentum) 


where 


static pressure, lb/ In* 
velocity, ft/sec 
flow rate, lb/sec 
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Gas Dynamics for Incremental Control Volumes (Continued) 


static temperature, 


°R 


T = 

A = port cross sectional area, 
V 
P 

R = gas constant, °R/ft 


In 


port volume of mass addition region, In" 
3 

density, lb/In 


4.1.1 


Steady Flow Gas Dynamics 

The original program developed by the Thtokol Chemical Corpora- 
tion (references 1 and 2) based the Internal gas dynamics on 
Steady flow. Continuity and momentum equations were Iterated 
to obtain mass addttlon region discharge pressure, ter ?P er ^ure, 
and velocity. This capability Is retained In subroutine AIBSUB. 
The steady flow solution for a segment .slot Is obtained in sub- 
routine SLOT by neglecting the time dependent terms of the non- 
steady flow equations. Therefore the steady flow option can be 
exercised for both monolithic and segmented grain motor designs. 

I 

The solution of the steady flow gas dynamics Is obtained from an 
Iterative solution of the continuity and momentum equations with 
the general energy equation and perfect gas law applied at the 
discharge section to obtain the density and temperature of the 
combustion gases. The discharge flow rate is obtained from the 
sum of the mass generation rate and Inlet mass flow. An initial 
value of the discharge velocity is then obtained from the momen- 
tum equation, assuming ? 2 = and a starting value of th * ' 5 “ 
charge density Is obtained from the’ continuity equation. With 
the Initial value of the discharge density, the following itera- 
tive procedure Is employed to converge the steady flow equations. 

Initially, a guess of the discharge velocity U 2 Is obtained from 

the momentum equation by assuming no pressure loss, ? 2 - Pj/ 
as follows: 


12 pV A. U, 

g ■— <V U 1> + “i 


U 2 dW 


= 0 


or 


Wj U 2 u l^dw _ 
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4.1.1 Steady Flow Gas Dynamics (Continued) 


W 1 U 1 = U 2 + u 2 dW = W 2 U 2 


From the perfect gas law and continuity equation: 


u j - 


w i u i 


w i u i 
e 2 A 2 U 2 


W 1 U ! 

P 2 A 2 U 2 
12 RT„ 


, . 12 RT, 

u 2 ■ w i u i 


Using! the general energy equation: 


2g 0 «r(V t 2 ) 

r - i 


12 RT, 

- y U — = 

1 1 P 2 A 2 


Multiplying both sides of the above equation by -2A_ and adding 

1 t i. . _ 1 t _ ! i. _ T . . ? _ 1 -I _ . fc ” 


like terms to eliminate T 2 yields: 


-i 9 0 r 7(T 0 -T 2 ) 


2A 2 + (A 1+ A 2 )g o R T q - (Aj+A^R T. 


-2A, W.U.RT, 

+ <VW T 2 * <WS»* T 2 - — 

2 2 


Rearranging and combining terms yields: 


- 2 V<V T 2> 


2A 2 +(A 1+ A 2 )g o R(T o -T 2 ) + (A 1+ A 2 )g o RT 2 


^2 W 1 U 1 RT 2 


- (A 1+ A 2 )g o RT o , 0 


Multiplying through by W 2 and again rearranging terms yields: 
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4.1.1 


Steady Flow Gas Dynamics (Continued) 

where U Tmp Is based on the assumption of P £ = P - and Is used only 

once In calculating the Initial value of p 

I tmp 


continuity and momentum 

the di 

scharge density as 

P tmp 

12 A, U_ 

2 Tmp 

. • 

where W 2 = + dW 

• 

U Tmp 

" V Z /m 2 p tmp 

T 

. T 

Tmp 

o 2g o R 7 

p_ 

2(W, U_ • 
- p - -A ~ Tm P 

Tmp 

1 9 0 (A 1+ A. 

n ~ 

P_ 

-Imp 

p 2 

12 R T_ 

Tmp 

Temp 

P tmp “ P 2 


(contlnui ty) 


(general energy)] 
(momentum) 
(perfect gas) 


7 • If -L~IlPi. < ,0001 go to 8, 

p Tmp ” 

and return to 2. 


otherwise set p_ = 

tmp 2 


8. P 2 = P 

T 2 " T 
U„ = U. 


Tmp 

Tmp 

Tmp 


9. Determine discharge mach number, 
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Steely Flow Gas Dynamics (Continued) 


2 < t q : w 

(r-i)T T _. 


Non-Steady Flow Gas Dynamics 

the non-steady flow gas dynamic equations were developed to pre- 
dict Ignition and tall-off transients. The non-steady gas flow 
equations account for mass* momentum, volume, and pressure with- 
in the control volume varying with time. The fundamental equa- 
tions of momentum and continuity along with the perfect gas law 
are expressed in partial differential form and then integrated 
across the control volume describing an incremental mass addi- 
tion region using the technique of finite differences. 

The gas dynamic solution for the mass addition regions is ob- 
tained by Iterating the continuity and momentum equations for 
the discharge pressure, temperature, and flow rate. When the 
solution of the above discharge parameters have converged, 
the discharge values of mach number, density, and total pressure 
are determined. The derivation of the time dependent momentum 
equation and discharge flow rate and pressure equations are pre- 
sented in the following sections for a mass addition region, 
Figure 4.1, and a segment slot, Figure 4.2. 

j . - 

Mass Addition Region 

This section develops- gas dynamic equations and solutions for a 
mass addition region as shown in Figure 4.1. The equation de- 
velopment from fundamental engineering principles to obtain 
the discharge conditions is taken from reference 6 and is pre- 
sented below. The discharge pressure, 

f W.U. WmIL p,+p 2 

P 2 ■ “T 1 ■ -f* * P 1 A 1 + — ( W 


* ( P 1 +P 2 H U 1 +U 2 )(V " V,) t p 1 + p 2~ p i~ p 2 ) 


24g Q R(T 1 +T 2 )At 

(P,+P,) (A,+A )a -AZ 

24 R(T 0 +T 2 )9 0 


24g o RCT^T^At 
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Mass Addition Region (Continued) 


and discharge flow rate, 

V (P 1 +P 2 ) V-V' 

W — W *4* dW m ■ 

W 2 - Wj + aw 12 R (Tj+T 2 ) At 


v( p i+ p 2 -PJ- p ^) 
12R (Tj+TjjAt 


where 

V 


= current port* volume. In' 5 

3 

= one past time Increment volume, In 

2 

= Inlet past time Increment pressure, lb/In 

p 

- discharge past time Increment pressure, lb/In^ 
= time Increment, sec 

2 

= vehicle longitudinal acceleration, ft/sec 


are Iterated In subroutine AIBST to obtain the solution of the 
gas dynamic equations for a mass addition region. Total pres- 
sure, static temperature, mach number, and density are then ■ 
calculated at the discharge station 2. 

The derivation of the above equations and method of convergence 
follows: 

i • 

Starting with the continuity equation: 


1. |j| (p U A) + (p A) = 0 


(continuity equation) 


Integrating with respect to x between station 1 and 2 gives: 

I ‘ . 

2 

2. p 2 U 2 A 2 - Pl Uj Aj + |f f PA dx = 0 

1 

The ftrst two terms are the discharge and Inlet mass flow 
rates, Wj and W 2 , respectively. The integral is the rate 

of change of mass between the stations 1 and 2 and may be 
evaluated as follows: 


3. J p A dx = P m v - dW 

— J 

where 
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4. 1.2.1 


Mass Addition Region (Continued) 
2 


= jT A dx, 


In' 


1 


m 


average dens l ty, lbm/ft* 


dW = mass flow generated In the section, lb/sec 


and upon differentiation: 
u d / dV . „ ^m 

4 * St (p m V> - dt + V “dt 


Combining terms and using finite differences with the perfect 
gas law yields from the continuity equation the solution of the 
discharge mass flow In terms of the pressures and control volume: 


5. W, = W, + dW - 


P l +P 2 


v-v' 


P l +P 2 - P i' P 2 


12R(Tj+T 2 ) At " 12 R(Tj+T 2 ) At 


Euler's fluid acceleration equation for unit mass is: 


6 ‘ St + u SJ 


9 0 dP 


Multiplying Euler's equation (6) by pA and the continuity equa« 
tton (1) by U gives: 

, . dU , M . 5ll . Sp 

7. pAjj+p »A S = -S 0 A3J 

and 


8» U 1^- (pA) + U (p U A) 


= 0 


Adding equations (7) and (8), and combining appropriate terms, 
yields the one-dimensfonal momentum equation; 


q L. -(P-M- A] . 5 (p U Z A) _ . bP _ 

9 * St a. + Sx a_ " A Sx ~ 


* lx ( PA * + P Sx 
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4. 1.2.1 Mass Addition Region (Continued) 


Then, integrating equation (9) with respect to x between 
station 1 and 2 gives: 

!_ f dx * - (Vj-PjA,) ♦ f NA 


». h I 
1 


The last integral may be evaluated by defining a mean pres- 
sure, thus: 


PdA = P m <A 2 -A v ) 


The first Integral of equation (10) is the rate of change of 
momentum from nonstationary changes between stations 1 and 
2 and may be evaluated by defining a mean density, P m , and 

a mean velocity, IT, and integrating with respect to x, thus: 


12 - It I 


, . . (p U V) 

(pWl J:: = Ir — E-E 


and upon differentiation: 


»• ST 


a ( p m U m ^ p m U m dV P m_^ _m 


P V d U U . V d p 

r m mm ! 




dt * g. 


uttlng _2 = o and combining terms using finite differen- 

ces with the perfect gas law yields from the momentum equation 
the solution of the discharge pressure In terms of the mass 
flows and pressures: 


14. P 2 - 


W, u, w 2 U 2 Pj+P 2 

_1_I . _p + PjAj + - V (*2 ■ A l> 

s o o 

(P 1 + P 2 ) (u 1 + u 2 ) (v-v 1 ) v(u 1 +u 2 HP J +P£Pi-Pp 

24 At 24 g 0 R(Tj+T 2 ) At 


The acceleration term to be added to equation 14 Is derived in 
Section 4.1.3* 
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4, 1.2.1 Mass Addition Region (Continued) 


Equations (5) and (14) are iterated In subroutine AIBST to solve 
for discharge temperature, pressure, and flow rate at each mass 
addt tl on region as follows: 

1. Estimate a starting value of the discharge pressure and 

temperature using the influence coefficient equations for 
constant specific heat and molecular wejght, reference 7» 


OT * TjO'-l) 


(1+7 M*) H* dW 
(l-M*) V j 


a) T- - T, - OT 

7 2guess 1 


DP «= Pj dW 27 


(7“1) 


Wj O-Hj) 


b) P. * P, - DP 

7 2guess 1 


Determine the gas storage: 


dW 

dt “ 


1 2guess 




3. Determine the discharge flow rate: 


W 2 - W 1 + dW-^ 


4. Determine the discharge velocity: 

^2 R T 2ouess 

U 2 = C 2 A, 





USE FOR TVPEWRlTTt.. MATERIAL ONLY 


NUMBER D2-1252t3b-l 



USE FOR TYPEWRITTEN MATERIAL ONLY 


NUMBER D2-125286-1 
REV LTR 


COMPANY 


4 • 1.2.1 Mass Addition Region (Continued) 


10. If 


^2guess T 2 


2guess 
new value of T 


2guess 
return to step 1(a). 


< .001, go to step 11, otherwise obtain 

using method of false position and 


11. Solutlon*ls converged, determine discharge mach number, gas 
density, and total pressure: 

, 1/2 


P 2 = 12 Aj U 2 


P 02 “ P 2 


4.1. 2. 2 Segment Slot Mass Addition 

The development of the gas dynamic equations for the region be- 
tween grain segments of segmented motors (referred to as a slotj 
Is similar to the non-steady gas flow equation development for 
a mass addition region. Section 4.1. The con tro* 'volume for a 
slot Is defined from the forward slot Interface to the aft slot 
Interface with mass addition occurring at each interface and not 
within the control volume. The control volume for a slot is 
shown in Figure 4.2. 

The following assumptions are made in subroutine SLOT (Including 
the assumptions of Section 4.1): 

a. The static pressure and temperature at the slot Interface is 
the same as the port static pressure, Py = P 3 = *V T 1 = 
T 2 , and Tj = T^. 

b. - The mass flow generated at the slot Interface Is a function 
of the port static pressure only and Is determined from the. 
following burn rate equation: 

dW - A f p f aP n 


U a 4*01 I 414 K(V,l-i9 
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Segment Slot Mass Addition (Continued) 


where: 


= generated mass flow, lb/sec 

2 

= burn area at slot Interface, In 

3 

= solid propellant density, lb/ln 

2 

* slot Interface static pressure, lb/ln 
= burn rate coefficient 
» burn rate equation pressure coefficient, 


C* Static pressure at station 3 Is a function of the area change 
(dA/dx), and the capacitance effects (dr/dt and dV/dt) between 
stations 2 and 3j and acceleration of the vehicle. 

The solution of the gas dynamics within a slot Is obtained from 
the above assumptions and the equations developed In Section 4.0 
as foil ows: 

1. Determine the mass generation rate at the forward slot Inter- 
face (station 2) from the static pressure at station 1 (port 
cavity discharge) 

• . n 

dWj. «= A^ aP 

2. Determine the Inlet flow rate, velocity, and mach number: 

W 2 = Wj + dW f 

W 2 R Tj 
M 2 P 1 A 2 


g 0 k R T, 


3. Determine the current slot volume and rate of change of volume: 


A 2 + A. 


^ Z 3 " Z 2* 


where 


U 3 4 1 02 1434 ft t V . *-4S 
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■4. 1.2.2 Segment Slot Mass Addition (Continued) 


2. = aft interface station location* in. 

Z = forward interface station location, in. 
2 


dV _j t_ 

dt = 2£t 


J T f (R f2 + R SL0Tf^ + T 2 (R f3 + R SL0Ta^ 


where 


T = last value or -onward siot interlace distance 

^ burned in. 

T = last value or art slo+ interlace distance 

a burned in. 


4. Guess the value of the slot aft interface static pressure and 
temperature using the influence coefficient equations for 
constant specific heat and molecular weight, reference 7. 


dT = 


T 1 (r-l> (i*r h|) dw f 

C- h 2> \ 


P 1 ^ 9 o H 2 ‘ 2 H 2^ 

WjU - K*} 


P ' = P, - dP 

3guess 2 

T, - T. - dT 

3guess 1 


Determine the mass generation rate at the aft slot interface 
(station 3) from the guessed static pressure at station 3: 


p f A a a P 3guess 


6. Determine the stored gas in the slot 

dW (°2* R 3nuess) dV V - :r "~ " : 

dt " 12 RCVT 33uest ) dt 12 R(T 1+ T 3guess ) 
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4. 1.2.2 Segment Slot Mass Addition (Continued) 

where 

dW d ,P V x 

dt St U2 RT' 

7. Determine the discharge flow rate and velocity: 

i 

W = W + dW - ~ 

w, w 2 + cw fl dt 


W„ R T. 


3guess 3 


8. Determine the aft slot Interface static pressure (see Section 
4.1.2. 1, equation 14). 


W U V U 

+ P-A + 

\9 n 9 n 2 2 


P +P 

2 3quess 


(a 3 - a 2 ) 


^ P 2 +P 3quess^ ^ U 2 + ^3^ dV 

24 V< T 3guess +1 V dt 

v(u 2 w,)(p 2 .p, ail) ; rt - p;-p^) 

24 V R < T 3guess +T l> At 


< P 2 +P 3gu ess HW a * 


+ 24 S 0 R ( T 2 +T 3 3 ubss 


9. If 


< - CRP, go to step 10, otherwise obtain new 


value of P_ _ using method of false position and return 
jguess 

to step 5- If CRP Is not input the program will set CRP 
; equal to .001. 

10. Determine the slot aft Interface static temperature from 
the general energy equation: 


U > 4101 1414 Dtv.l.ll 
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Segment Slot Mass Addition (Continued) 


(7 - 1) u; 


T 3 = T ° “ 2 g Q 7 * 


11. If 


< .CRT, go to step 12, otherwise obtain 


new value of T-, using method of false position and 

jguess 

return to step 7. If CRT is not .input the program will set 
CRT equal to *001. 

12. Determine the slot discharge velocity, mach number density, 
and total pressure: 

W, R T„ 


p 3 \ 


M 4 ' r. _ i 1/2 


k ' R V 


12 \ \ 


P0 4' r i\t 3 


Non-Steady Flow Gas Dynamics with Acceleration 

The effects of longitudinal acceleration of the vehicle on the 
Internal ballistic solution Is considered in this section. In 
conventional gas dynamic studies, the effects of • gravitational 
forces are not considered because, for compressible fluids, gra- 
vitational forces are significantly less than surface forces. 
Recent development of missiles for low level I CBM intercept may 
require boost accelerations that are of significant magnitude to 
affect motor internal pressures and temperatures. In an accele- 
rating reference system, the force field which results from the 
acceleration Is equivalent to a gravitational force field in a 
nonaccelerating reference system. 
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Non-Steady Flow Gas Dynamics with Acceleration 


The acceleration effects are considered only on the gas dynamic 
equations in the port cavity of the motor and not In the nozzle. 
Effect of acceleration on a nozzle Is to move the sonic point 
upstream of the throat. The effect of acceleration on the motor 
Internal ballistics Is to reduce the pressure drop along the pro- 
pellant grain as well as fore-head pressure. 

The resulting acceleration term is added to the momentum equation 
as follows: 


|_/lEM dx + 


(p 2 U* > 2 - p, U* Aj) 


(Pi Aj - P 2 A 2 


>>/ 


P dA + 


(p m A a AZ) 
m m 


where 


vehicle longitudinal acceleration, ft/sec 
length between increments, ft 

3 

average gas density in increment, lb/ft 

# 

average cross sectional area in increment, ft 
conversion constant, 32.17^ lbm/slug 


The acceleration term Is developed as follows: 

1. From Newton's Second Law of motion: 

W . 


where 

F. 


body force, Ibf 
weight, lbm 
acceleration, ft/sec' 
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Non-Steady Flow Gas Dynamics with Acceleration 

2. The body force exerted on the gas within a mass addition 
region Is: 

p A AZ 

m 


Assuming perfect gas relationships, the body force may be 
written as: - 

(p 1 +p 2 )(a 1 +a 2 ) & a 

F bf = 24 g Q R(T 1 +T 2 ) 


and from P = F/A: 


AP = 


(Pl-fP 2 ) (A l+A 2 ) ^ ^ 


Wj+t 2 )a 2 


where 


ap = pressure change resulting from acceleration^ Ib/ln 


Th|e pressure change resulting from vehicle acceleration Is added 
to the discharge pressure of a mass addition region as shown In 
Section 4. 1.2.1, step 6, for the Iteration of the discharge pres- 
sure and flow rate. 
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4.2 


4.2.1 


Complete Motor Gas Dynamics 

Solution of overall motor gas dynamics or internal 
from fore-head to nozzle exit i s. described in thi s 


ball I sties 
section. 


Fore-Head Pressure Convergence 


$olution of motor internal ballistics for each time point Is 
obtained by an iteration process which converges on fore-head 
pressure, PH, (Figure 3»1)* An initial estimate is made for 
fore-head pressure either from the input value PHI at time = 

0, or from the previous time solution of PH at time > 0. The 
fore-head section mass balance Is obtained in subroutine MNCHN4 
(flow chart No. 10) after geometry values have been determined. 
Then parameters necessary to solve cylindrical section mass 
addition regions In subroutine SEGSUB (flow chart number 11) are 
determined. When the cylindrical section is complete, the aft- 
head section mass balance is obtained in Subroutine MNCHN4 and 
the fore-head pressure is checked for convergence In subroutine 
SETPH (flow chart number 12). 

The fore-head pressure convergence check In subroutine SETPH 
ts made as follows: 

1. Determine the throat critical pressure ratio: 


(a)’- 


2 . 


Determine the nozzle total pressure: 

JL. 

7-1 


P = P 
ON 




where 


P * aft-head section discharge static pressure, 
i lbs/ fn 2 

T = aft-head section discharge static temperature, °R 
P 

3. |f Pg N (—) > P g , the nozzle Is choked. Determine the 
sonic nozzle flow rate: 
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Fore-Head Pressure Convergence (Continued) 


OIS = 


So NN \ P 0H 


where 


NN = number of nozzles 


Go to 5. 


4. If P, 


ft) 


< P , the nozzle is not choked. Determine the 
a 3 


subsonic nozzle flow rate: 


SDIS - NN P 0f| P £E If 


T 0 R(-,-i; 


where 


nozzle exit plane area. 


DIS = SDiS 


5. |f — - > CRW, estimate new fore-head pressure as 

follows (W = grain discharge flow rate). |f CRW is not input 
the program will set CRW equal to .001. 

■■a ... W - WDB 

a) WD = 

r H: Hold 

where = P rev, ’ ous iterative value of P^, psi 

WDB = previous iterative value of WD, lb/sec 
W = grain discharge flow rate, lb/sec 

b) DEED - ■= — _ -5 

Hold 

where DISB = previous iterative value of DIS 
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4.2.1 Fore-Head Pressure Convergence (Continued) 


c) If DEED = WD or If DEED = 0: 


* • [(&) ' -l 


d) If DEED 4 WD: 


AP = 


W - PIS 
DEED-WD 


e) WDD = W 
D I SB = DIS 


f) If W< DIS, P m|n = P H 

g) If W > D!S, Pmax = P H 


h) p = P,, + AP 

r Hguess H 

f\ If P. < P . and P . = 0 

1 • lT r Hguess — min min 

p„ = 5.0 lbs/In 2 

Hguess 

J) lf P Hguess ^ P mln and P m!n * 0 
P Hguess = 2-0 P H 


>) ' f p m |„ < P Hguess 2 P max ! 

P Hguess “ *^ P max P mln^ + P mln 


Return to fore-head section with P^ = p Hguess * 
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"-Head Pressure Convergence (Continued) 


1) If p . < p < P . return to fore-head section 

mm Hguess max' 

with P u = P u . 

H Hguess 


W - 01$ 


6. If p“5Ys I - C?,V/j convergence has been attained. If CRW 
is not input the program will set CRW equal to .001. 

Nozzle Gas Dynamics 

After the fore-head pressure convergence criterion has been 
satisfied (step 5 and 6 of the previous section),, the nozzle gas 
dynamics in subroutine SETPH are determined as follows: 

1. Determine the nozzle exit area: 


Determine the nozzle expansion ratio: 


"G ~ A, 


Iterate the following equation for — — * using the method of 
false position: ON ; j 


Ill , 1 

7 1 2 


■ /•.]/['• ( 4 ) ' 1 


Determine the momentum portion of the thrust coefficient: 


’«> [■■■ \>-W \ r 0 N / 
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^• 2 * 2 Nozzle Cas Dynamics (Continued) 

5- Determine the delivered vacuum thrust coefficient: 


c foi -■ (c fo \. + € g> c „ 


6. Determine the delivered thrust at P for sonic 


flow; 


F * (C 


foL ? 0N A t “ P a *G A t^ NN 


Determine the delivered thrust for subsonic flow: 


2y T R g , 
o 3 o 


V_ w c NN 
E N m 




8. Determine the fore-head pressure-t ime integral: 


/ P H dt ■ / P H dt+(P 


h(p + p y At 

, V Hold V 2 


9. Determine the nozzle total pressure-time integral.: 

( i J ? 0N dt » / P 0N dt + (gNold + P 0N> ^ 

10. Determine the nozzle discharge flow-time integral: 

: A dt = A dt + <wvl 

11. Determine the total Impulse: 


,T - ,T + < F + p old> ^ 


ui 4«ei i4S4 « r v 
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4 . 2.2 


Nozzle Gas Dynamics (Continued) 


The above iterative procedure is allowed to continue for no more 
than^2l iterations. If the fore-head pressure has not converged 
within 21 iterations, a summary of the last iteration is printed 
followed by a complete program data dump and the next case is 
set up. V/hen convergence has been attained, the program output 
is printed and the next time increment solution is initiated by 
setting P Hgues$ equal to the previous time increment solution 

of P^. Program execution for each case continues until termina- 
tion options are satisfied. 


4 . 3.1 


Propellant Character ist ics and Burning Rate Model 

The characteristics of the propellant are represented by a mathe- 
matical model of the burning rate and properties of the pro- 

combustion. Basic assumptions of a perfect gas, constant 
combustion temperature and constant specific heat allow the pro- 
pellant ga s^propert i es to be described by the characteristic 
velocity, C“, the combustion temperature, T , the specific heat 
ratio, 7, and the gas constant, R. 0 

The propellant burning rate model allows either isotropic or 
anisotropic burning of the propellant surface. Isotropic burning 
is defined as uniform combust ion' occurring normal to the propellant 
surface. In anisotropic burning, the burn rate varies with 
distance burned as well as with conditions at the gas-propellant 
interface, it results from nqn-homogeneous dispersion of pro- 
pellant additives near the case wall and core during propellant 
casting. • , . 

Propellant Gas Properties 

The propellant gas properties may be held constant or may be 
varied as a function of the static pressure in the port cavity. 

If the gas properties are to be held constant, the parameters 
C'*, 7, and R are input. If the gas properties are to be 

varied, tables of the combustion temperature (TCOMB), the mole- 
cular weight (AMWG), the specific heat ratio (GAMAG), and the 
character istic velocity (CSTR), are input as a function of static 
pressure (PRESS). 

When The gas fables are input, a linear interpolation procedure is 
used to obtain the gas properties for the pressure at the increment 
dividing plane. 
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4 . 3.2 


Propellant Burning Rate Model 

The propellant burning rate model may Include the effects of 
erosive burning. Erosive burning Is defined as the change in 
the local burning rate resulting from gas velocity parallel to 
the burning surface. 

| 

The propellant burning rate, Rg, at any increment dividing plane 

Is determined from the following parameters at the adjacent 
upstream Increment dividing plane: 

1. Static pressure P 

2. j Gas velocity U 

3. j Mass velocity per unit area G 

4. Distance from stagnation point h^g 

5. Burning rate Rg Hj 

6. Solid propellant density p, 


With the exception of p^, these values are not input but are 
calculated within the program. 

Fifty-one constants are available to define the burning rate 
equation. Only the constants that are required for the particular 
burning rate equation to be used are Input. These constants are 
as follows: 


KG1 through KG5 

KU1 through KU5 

KR1 through KR39 

KSL0T1 through KSL0T2 

Prior to calculating burning rate, critical values of velocity, 
UCR, and mass velocity per unit area, GCR, are obtained as 
follows: 

UCR = KUl + (KU2) p( KU3 ) + («U4) p^ KU5 ^ 

GCR » KG1 + (KG2) P^ KG3 ^ + (KG4) p^ KG5 ^ 

Propellant burning rate Is then calculated In one of two ways; 

|f G Is greater than or equal to GCR, and U Is greater than or 
equal to UCR, the following relation Is used: 

R b = KR1 + (KR2) p^ 3 ) + (kr4) P (KR5) + (KR6) U^ 7 ^ 

+ (KR8) U (KR9) + (KR10) G^* — + (KR12) G^ 13 ? 
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Propellant Burning Rate Model 

♦ (MU4) P<KR15) 0 (kri6) * 0*17) r me) “ CKR19) 

+ (KK20) P (KR21) 0 (W22) ♦ (KP23) P (KR24> ^ 


KR26 


+ (KR27) P iKR28) + (KR29) F 


(KR30) 


(KR32) 

+ (KR.3 1 ) - (KR 337 

h RB 


| (KR34) R bh1 P. 


If the value of G Is less than GCR or if the value of U is less 
than UCR, then the following relation is used. 


R = KR35 + (KR36) P 


(KR37) 


(KR38) P 


(KR39) 


To orevent the values of GCR and UCR from being used s imuitaneous- 
°y for choosing the burning rate model, one of these values must 

always be equal to aero. ihelal^o^lnstants 

S Ue KU2 a°2 KU^equa 'to z’ero. The program will automatically 
stop If any of the terms KG1, KG2, or KG4 are not equal o zero 
P r 4 -u f-ar-mc kin KU2 or KU4 are also not equal to 

wh en snyo the terms KU1, prlnt . out . statement that 

- r0 : r 'r S coefficients are invalid. If KR26 is not zero, 

can be negative or simultaneously equal 

•nd 2 pr°nt-out ^‘statement' of 

The burning rate at the segment slot face is calculated by 

RBSLOT = (KSL0T1) p( KSL0T2) 

where P is the static pressure in the port at the segment 
Interface. 
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4.3.3 


Anisotropic Propellant Burning 

Anisotropic propellant burning capability, where burn rate de- 
pends on distance burned, was added to the program because of 
Boeing's experience with the HiBEX motor. Anisotropic burning 
occurred during both ignition and tail-off. It appeared to be 
the result of two effects: 1) variation in the alignment of the 

Staples between the bulk of the propellant at the case wall and 
the core interface, and 2) the burning distance required to de- 
velop "coning" about the staples. Anisotropic burning is most 
easily represented by variation of the constant "a" as a function 
of distance burned In the burn rate equation, r = aP n . During 
Ignition, mass generation Is determined by multiplying the port 
perimeter by the anisotropic burning rate. During tail-off, 
regions exist where both Isotropic and anisotropic burning occur. 
The port perimeter Is subdivided accordingly. The total mass 
generation Is then the sum of the individual mass generation 
rates. 

The following assumptions have been made in developing the mathe- 
matical model: 

1. The anisotropic region at both the core interface and the case 
j wall Is of uniform thickness along the motor length. 

2. The thickness of the anisotropic region Is the same at both • 
the core interface and the case wall. 


3. The burn rate variation through the anisotropic region is a . 
function only of distance burned and local static pressure, 

r = a(T)p n . 

4# The anisotropic burn rate Increases from the core Interface 
toward the Isotropic propellant and decreases from the I so- * 
tropic propellant toward the case wall. 

5. The fore-head and aft-head burning rate during motor tall- 
off Is the same as the adjacent tangent plane Isotropic 
burning rate. 

The following limitations apply to the program: 

1. Anisotropic burning cannot be considered for propellants with 
wagon wheel grain conf Iguratlons.durlng tall-off. 

2. Anisotropic burning may be considered for non-steady flow 
options only during Ignition and tail-off. 

Program simulation of anisotropic burning Is accomplished by 

altertng normal program solution during the Ignition- transient 

Interval to solve for the burn rate coefficient with a fixed 
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Anisotropic Propellant Burning (Continued) 


value of the fore-head pressure at each time Increment. The 
burn rate coefficient is stored in a table as a functton of 
distance burned at a desired location within the cylindrical 
section (Input NINCPL). A program option is available to input 
this anisotropic burn rate coefficient table and solve for fore- 
head pressure as discussed In Section 4.2.1. The burning rate 
within the fore-head and aft-head sections may be specified by 
Inputs KRH and KRN or by the anisotropic burning rate table 
Inputs. During the tall-off interval, when the burning surface 
Is within the anisotropic propellant region, the burning rate at 
each Increment dividing plane In sectors 6, 7 } and 8 becomes a 
function of the distance from the case wall within the sector as 
shown In Figures 4.4, 4.5, and 4.6. 

The program method of solution for anisotropic burning during the 
Ignition transient interval, when the fore-head pressure trace 
Is. Input, is altered to converge on the burn rate coefficient, 
KrtST. At each time Increment, an estimate of the burn rate coef- 
ficient Is determined in subroutine RBSTSB from the fore-head 
pressure rlse*rate and the motor configuration as follows: 

From the perfect gas law using finite differences;; 


12 W u R T 

H 


12 R T d W H 


2. — — _ u - W 

dt in "out 


where 


•w 

W Jn = generated weight flow rate, lb/sec 
W Qut = nozzle discharge flow rate, lb/sec 
V = free volume, in^ 


The nozzle discharge flow rate Is determined from the nozzle 
geometry: 


3. W. 


9 o A t P 0N 


where 
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! 4.3.3 


Anisotropic Propellant Burning (C ">• t ir.ued) 


9 q - gravitational constant, 

A = nozzle throat area., ir“ 


c *. ! - .. 
i l/ jj: 


ON 


nozzle total pressure, lb/ in 4 


ssffaa? 


C = characteristic velocity, ft/sec‘ 


and the generated weight flow rate is determined from the 
motor configuration: 


4. W. 


i n 


R b A b p f 


where 


R, ~ burn rate, in/sec 

b 2 
A, = total burn area, in 


.3 


I Pf = propellant density, Ib/in 


5. R7 
where 


r = r 2 c* 2 


_c 

9o 


^ - * <*r> 


7+1 

7-1 


Therefore: 
dP 


6 . 


dt 


a ■ - ^r 1 w 


12 


*5 

r 2 c" 


^on V 


Combining and arranging terms with P QN = (TPR)P H , where TPR is 

an estimate of the port pressure drop, we have: 


. (12 r 2 c* 


A. TPR P, 


7. 


and 


P + 
H 


12 r 2 c" 2 A, p 


b M f 


9 o V 
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4.3*3 Anisotropic Propellant Burning (Continued) 

• i ■" 


8. KRST = ~ 

r.n 


After the Initial estimate of KRST Is made, the ballistic solu- 
tion Is converged for the fixed fore-head pressure obtained from 
the Input pressure trace using the convergence procedure outlined 
In Section 4.2.1. When the anisotropic burn rate coefficient 
table Is Input, the method of solution remains unchai ged except 
that the burn rate coefficient which depends on distance burned 
at location NINCPL from the forward tangent plane Is determined 
from the Input table at each time Increment. 

The Ignition transient Interval Is terminated when the value of 
time exceeds the last table value of the input fore-head pressure 
trace Independent variable TIMEPH(NPH), or when the burn rate table 
Is' Input, the termination option TST. The steady state Interval 
will then continue with the last table value of the burn rate 
coefficient dependent variable AKRTAU (NAKRST) or the burn rate 
coefficient Inputs KR(2) and KR (36) (depending on choice of 
Inputs) In the general burning rate equation. 

As the burning surface progresses toward the case wall, the ani- 
sotropic region is first exposed In the region of sector 8 as 
shown in Figure 4.4. This results In a non-uniform burning rate- 
along the propellant burning surface during the tail-off Interval. 

Three burning rates are determined for the burning surface: R^g 

which Is determined from the anisotropic burning distance In sec- 
tor 8, Rgy which Is determined from an integration along the 

anisotropic perimeter of sector 7 between the isotropic and ani- 
sotropic burning distances using the an i sotropic burn rate coef- 
ficient table, and the normal Isotropic burn rate, R^. 

Two separate burn distances are defined: the Isotropic burn 

distance In sectors 1 through 7, TAUZ(III), and the anisotropic 
burn distance In sectors 7 and 8, TAUZTO (III). The anisotropic 
burn rate becomes progressively less during motor tall-off, re- 
sulting in an anisotropic burn distance less than the Isotropic 
burn distance and producing burning that Is not normal to the 
grain surface. 

Figures 4.4, 4.5, and 4.6 show the configurations of the aniso- 
tropic propellant region that can exist at the case wall for a 
standard star configuration with an Inert sliver. The angles 
n 2 t ^22* and "ANGLE" are used to determine the anisotropic pro- 
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4 # 3 # 3 Anisotropic Propellant Burning (Continued) 

pellant perimeter lengths, AL y and AL g , during motor tail-off. 

Angle y\ is subtended from the R g radius point and locates the 

Intersection of the anisotropic propellant region with the Iso- 
tropic propellant region. Angle n 22 Is subtended from the mot 

axis to the same Intersection point for tj 2 . "ANGLE" is sub- 
tended from the motor axis and identifies the point of. Intersec- 
tion of the isotropic burn distance vector, swung from R g ,. with 
the case wall. 

Subroutine LPTO contains the geometry calculations to determine 
the sector perimeter length of the anisotropic propellant for 
each reference plane during motor tail-off. The anisotropic pro- 
pellant perimeter length In sector 8 Is identified as A L 8, and In 
sector 7 Is identified as AL7- The perimeter length of sector 7 
anisotropic propellant (AL7) Is assumed to be a straight 
between the points determined by the Intersection of the sotro 
pile propellant with the anisotropic propellant and the anisotropic 
burning distance with the case wall or with sector o. 

The distance burned of the anisotropic propellant In sectors 7 
and 8 Is computed from the burn rate of the anisotropic propellant 
Ih Sector 8 (RB8) in Subroutine SEGSUB. Once sector 8 has burned 
oik, RB8 is determined from the first table value of the aniso- 
tropic burn rate coefficient (the minimum value). . The progres- 
sion of the Intersection of the propellant with the case wall Is 
assumed to proceed at the minimum burn rate. 

The mass flow generated Is determined In subroutine SEGSUB from 
the perimeter lengths of the anisotropic burning propellant 
(AL7 and AL8), and the Isotropic burning propellant (ALP) and 
their corresponding burn rates as follows: 


dW y = NO p 1 


AZ (AL y R b7 + AL 


7HI 


R B7Hp 


dWg = NO p f AZ (AL 


8 R B8 


+ AL 


8HI ' a B8HI 


) 


dW 


i - [-rj— < alp hi " al tohi> rb hi + (alp ' al to> r b 


where 


'8 


AL TQ = (AL ? + ALg)2N0 
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An! sotroplc Propellant Burning (Continued) 


and subscripted "HI" values are at the Inlet to the mass addi- 
tion region. The non-subscrt pted ones represent the outlet to 
the mass addition region. 






DC- 125286-1 



Slot foreward Interface 

Slot forward Interface mass addition region 
Slot aft Interface mass addition region 

i .... .i 

(J) Slot aft Interface 

Figure % 2 * Mathematical Model of Slot Between Grain 
vSegments.;' ■ 
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Figure 4.5. Anisotropic Propellant Burning Configuration 
Near Case Wall and Inert Sliver Before Web 
Burnout 


54 







USE FOR TYPEWR1TT. ATERIAL ONLY 


THE 


NUMBER D2-125286-1 
REV LTR 






USE FOR TYRE WRITT EN MATERIAL ONLY 


COMPANY 


NUMBER D2-125286-1 
REV LTR 


5 . 1.1 General Forked Wagon Wheel (Continued) 


a -2- 

*1 NO 


sin a, 


T 2max = R 2 + L A cos a, 


01 


01 


sin a, 


T 4 max T 2 max + L B cos a, 


02 


02 


cos a, 


02 


T 5 max “ ^ T 4 max + R 4 ^ cos a Q3 


- R, 


X, „ = (T r + R-) cos ql., 

45 ' 5max 5 °3 


r 45 


Rj + R 2 (l-*l" ° 0 1> + l A C0S °01 + T 2max (5ln “bl’ 5 '" V 

I : 

+ L b cos a Q2 + R 4 (sln a Q3 - sin a Q2 ) » R $ sin a Q3 

21 1/2 


L e “ h • T w - r s )2 -K cos a o3 • y 45 s,n “os 1 ' 


- x 45 » ln a 03 " V 4S cos “03 


k 03 


^ T 2max " R 3^ 


T / ( a 0i " a 02*\ . 

cos + Tan l 2 Jsm Q£ ( 


01 


'03 


R 1 + R 2 + (R 3 “R 2 ) sin 


°m + [ f 


(T 2max' R 3 )Tan 


a 01 " °02 


+ L, 


cos a 


01 


•03 


y 2 . v 2 1/2 

■■ ■ T 'rtO 


‘03 03 


x - * < T 5 max + V cos 


05 


03 
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General Forked Wagon Wheel (Continued) 


Y 0S = + (R 5 • V s,n a 03 


(I - fx ^ + Y ^ 
05 [ 05 Y 05 


X 07 " X 45 + L C s,n a 03 


Y 07 = Y 45 + L C cos a 03 


R 07 = [ X 07 + Y 07 ] 


1/2 
sin a 


T 6max ~ T 5max + *"C cos a 


03 


03 


7max 


■ ( 


x 07 ^ R f Y 07 } 


- R, 


sin a, 


’I2max 


R 8 + L E cos a, 


05 


05 


X 76 = ( T 12max + R 6 } cos a 04 

Y 76 = R 9 + R 8 (l-sln a Q5 ) + L E cos a Q5 + 

- sln °W " R 6 sln a o4 

L D = [ (R f “ T w " R 6 )2 . " (X 76 cos a o4 

’ X 76 sln a o4 " Y 76 cos a 04 

X 09 X 76 + L 0 sln a 04 

Y 09 = Y 76 + L 0 cos a 04 
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General Forked Wagon Wheel (Continued) 


T = (n - R.) or (BH * - R c ),- whichever is smaller. 

->x f 1 ■> 

if (ejj + « 2 ) <Zbac, 

X _ (r - r ) or (BH - R c ), whichever is smaller, 

max f 1 -> 

The calculated plane constants appear on the printout and •’■low the 
user a means of checking if the proper grain design is being ana- 
lyzed. Although the program is designed to solve the general con- 
figuration shown in Figure 5*2, there are certain variations of 
this, configuration that exceed the mathematical limits of the 
analysis. To obtain a program solution, all of the following con- 
ditions must exist for each reference plane used: 

Rj must be greater than or equal to zero 

R^ must be less than or equal to T 2max 

R^ must be less than or equal to T 12max 

Rg must be greater than or equal to zero 

L c must be greater than or equal to zero ■ . 

il must be greater than or equal to zero 

|D 

p must be greater than or equal to zero 

,7 1 M 

a , must be greater than or equal to zero 

P 91M o 

0 £«, must be less than 90 

01 

C» must be greater than or equal to zero 

02 0 

OCqj must be less than 90 

must be greater than or equal to zero 

a gj. must be less than 90 ° 

0 ^ must be greater than or equal to zero 

If any of these restrictions are exceeded for any of the input 
reference planes, the program will automatically stop and print 
the reference plane dimensions along with a statement of the 
exceeded restriction. Although the program is self-checking for 
these mathematically invalid configurations, there are some phy- 
sically invalid configurations for which there Is no such check. 

Special attention should be given to the manner in which input 
lengths L^, Lg, and Lg are defined. The length Is measured 


n w »• 

along a common tangent to the arcs generated by radii R 2 and R ^ 

(Figure 5.2). One of the points that defines this length is the 
point of tangency with the arc generated by the radius Rj. How- 
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5.1.1 General Forked Wagon Wheel (Continued) 


ewer, the other point that defines length Is not the point of 
tangency with the arc generated by radius R^» This end limit of 
length Is determined by bisecting the Included angle between 
lengths L A and L„, and extending this bisector until It Inter- 
sects the axis of symmetry of the grain sector. From this inter- 
section point, a line perpendicular to Is drawn. The Inter- 
section of this perpendicular and the line L A Is the point which 

defines the end of length L A - Line lengths L„ and Lg are defined 
In a similar manner. 

The perimeter length and Initial port area of the grain cross 
section for each reference plane are determined In the second core 
load for Incremental distances .burned before and after web burn- 
out specified by. Input. The geometry plane constants of each 
reference plane are moved from storage Into working locations in 
subroutine LPDAPS and the perimeter length, and Initial port area 
are determined for each sector of the cross section (shown In 
Figures 5*2, 5>3, and $,k) at the specified DTAU Increments by 
subroutine AFPSUB. 


Subroutine LPDAPS 

| 

Subroutine LPDAPS sets up the parameters required to determine 
the perimeter length, L p , and the cross-sectional propellant 

area, Ap p , for both the primary and secondary propellant tips of 

the forked wagon sheel. Initially, the parameters required to 
determine the secondary propellant tip are set and subroutine 
AFPSUB Is used to evaluate the perimeter length and the area of 
propellant for each sector, and then the parameters for the primary* 
propellant tip are set. Figure 5. 5 shows the boundaries of the 
sectors for the forked wagon wheel grain. 

The perimeter length and propellant area of sector 8 are then de- 
termined and summed with the values determined from sectors 1-7 
and 9-13* The total perimeter of the grain configuration Is ob- 
tained by multiplying the sum by 2N0. The port area Is obtained 
by summing the cross sectional area of the propellant sectors, mul- 
tiplying by NO, and subtracting the result from the area of a 
circle of radius R^.. 

Subroutine AFPSUB 

Subroutine AFPSUB determines the port perimeter length of one- 
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General Forked Wagon Wheel (Continued) 


half of a symmetrical section and propellant cross sectional area 
of a symmetrical section of all sectors except sector 8. The 
plane constants required for each sector are set by subroutines 
MNCHN2 and LPDAPS. 

The perimeter and area of the cross section for all grain confi- 
gurations are calculated from basic trigonometric formulas. Re- 
quired angles and line lengths are computed from known dimensions 
Using the law of sines and the law of cosines. Propellant cross 
sectional area Is determined by adding and subtracting areas of 
circular sectors and triangles. All configurations contain only 
straight lines and circular arcs. 

Initially, the constants to determine the Initial area and peri- 
meter length for sectors 9 through 13,. Figure 5.5, are set by 
subroutine LPDAPS, and then the sectors 1 through 7 are set such 
that L,, » L„ L„ = l„ L u = L,, L,„ = L v and l g - ly Tha 


that Lj 3 - Lj, l 12 = l 2 , l u - Lj, u 1(J - ^ 

sector perimeter length, L, and Initial propellant cross sec- 
tional areas, AFP, are determined as follows: 


If T < R 2 , 


H - < R 2 - T) ( f ■ a 01> 

AFPj = (R 2 - T)Lj 


2. If T > R 2 , 

4 = 0 
AFP r = 0 


3. If T < r 3 , 


(iLp») 


^3 ’ < T 2max - R 3> Tan \ 2 

= ( R 3 + T 2max ' 2T) 
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5 , 1*1 General Forked Wagon Wheel (Continued) 


f 


10. If T < T, 


2 max 
L 4 " L B + ^3 
AFF 4 - ' T 2n,ax 


2T + W S + AFD 


11. If T 2max — T < T 4max 

L,. » (T^ - T) L/l^, - T, may ) . 


B ' 4max 2max' 


AFF 4 * (T 4max ' T) L 1 


12 - w.'WS’iV 

v-° 

. aff 4 ' 0 


'f: T < T 4max 

L 5 = (R 4 + T)(a 03 - a 02 ) 

AFF 5 = <*4 + W (R 4 + T 4max )s,n(a 03 * < V‘ L 5 (R 4 + T) 


IFT Wx^ T< W 


L 5 = (R 4 + T) a 03 - arc cos 

AFF 5 = < r 4 + W (R 4 + T) s,n 


>5- ,f \nax * T * Vax' 

Lg - 0 1 

AFPg » 0 


(y^ax 1 e0, <V 


(R 4 + t) 


, (R 4 + /O'] ■ (R 


4 + T > L S 
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General Forked Wagon Wheel (Continued) 


16. If * < T 5rna x' 
l 6 = L C 

Afrp 6 * (T 5ma>c * 2T + ^max 1 L C 


17. If T 5max < T < T 6max^ L C 

l 6 ' L c (T 6max ' T)/(T 6max ' 
AFP- = (t e „„ - T ) l 6 


^Smax^ 


18 . If V,x * T * W 
1*6 * 0 
afp 6 - 0 


19. If T 5 T 6max' - ■ . 

^71 ^ 7 lmax < 

, AFP » (Rj + T 7ma x )(R 5 + T 6max^ s ' n ^71^ " P 71 (R 5 + T 


20* If T 6max < T < T 7max’ 

»71 - ^lma* + “03 ' arC “ S ) 

* * 

AFP = (Rj + ^max^ (R 5 + T ) s,n(P 71 ) “ P 7l (R 5 + T) 


21. If TSLVR > 0, 


*VX = arc si 


[R-sln(e )1 f R 7 sln( 9 2 -ft SLV )] _ 

" [Wax J ’ ^ ^ [ ^5 + ^IVr'J 


Temp = T w 2 + (Rj + T 7max ) 2 ' 2 T w (R 5 + T 7max' 

r / r 7 s,n e 2 \1 

cos arc sin r-r^ "I 
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General Forked Wagon Wheel (Continued) 

Arp, = AFP + 8 2 R f 2 - R f R ? Sin Sj + R ? (R 5 + T) s I n O y2max - P 72 > 


- R^. arc cos < 1 


- p 72 (r 5 + *0 

= 0 7 i + e> 72 ) » 5 + T ) 


' ( 


(R t .+T(sin(P 72max ~ ft 72 ) 


2 \ 1/2 


24. If T<T 


SLVR' 


L = Lj + L 2 + l 3 + L 4 + Lg + l 6 + L ? 

AFP = AFP j + AFP 2 + AFPg + AFP^ + AFPg + AFPg + AFP 7 - ASLVR 


25. If T > T t 


L = 0 


AFP = 0 


Slotted-Cone 

The slotted-cone configuration Is an additton to the standard 
star in which a segment of propellant, represented by angle 0 Q , 

has been inserted as shown tn Figure 5*6. The insert of propel- 
lant results In additions to the perimeter and area calculations 
for a standard star which requires the determination of three 
basic angles, QAG, RAG, and SAG, shown in Figures 5-9, 5-10, and 
5.11, respectively. Nine points. A, B, C, C', E, F, G, J, and H 
are defined tn Figure 5.7, and are used In the following analysis 
to determine line lengths and angles. Four moving points, P, Q., 

R, and S on the burning perimeter are Identified In Figures 5.8 
through 5*13. 

Point A lies on the motor axis (Figure 5*7)« Point B coincides 
with the center of the Input radius Rg and point F coincides with 

the center of the input radius R 2 . Point G Is located on the case 
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Slotted-Cone (Continued) 


wall at the point where a line through points A and F Intersect 
the case. Points C and E are located on the case wall where a line 
perpendicular to side at the Intersection of side with 

radius Rj. Intersects the case and where a line perpendicular to 

side Lj, at the intersection of side L c with radius R^ Intersects 

the case. Point H lies on the case wall at the angle 9g from point 

G. Point C 1 defines the point where side of the standard star 

disappears as a result of the progression of the burning surface 
of the slotted cone Insert. 

Perimeter length QR, Figure 5*9, defines the addition to side 

of the standard star, resulting from the addition of the central 
angle 0 Q of the slotted-cone. Perimeter length PQ defines the 

length of the arc subtended from the radius, (R^ + t), and inter- 
secting with length QR. When the burning distance, T, Is less 
than or equal to the Input radius R 2 , only the perimeter length 

PQ Is present. When the burning distance Is greater than R 2 , but 
less than or equal to the geometry constant "T ^ max 7 as shown In 
Figure 5*9, both perimeter lengths PQ. and QR are present. 

Perimeter length RS defines the addition to the arc subtended from 
the point of the Input radius R^ (geometry point B) . Whenever 

Ty 7 ,s neater than T 7 max' and T 7max ,s 9reater than T 6max (F ' 9ure 
5.10), and T Is greater than T£ max but less than or equal to T^ max , 

geometry point S lies on the line AG and perimeter lengths PQ, 

Oil, and RS are present. 

Whenever T Is greater than T^ max but less than T^, perimeter 
length RS Is defined as. In Figure '5*11* 

Whenever T Is greater than T^, as shown In Figures 5*12 and 5.13, 

geometry point R and perimeter length QR do not exist and only 
perimeter lengths PQ and QS remain. 

The angle 0g Is allowed to vary on Input between 0° and 90°. 

Should 0 Q be less than the angle QAG shown In Figure 5.9, then 

the perimeter length PQ does not exist and point Q then lies on 
the line AH. Should 9g be less, than the angles QAG and RAG, then 

the perimeter lengths PQ, and QR and the points P and Q do not 
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Slotted-Cone (Continued) 


exist and the point R lies on the line AH. When angle SAG ex- 
ceeds Qqj complete burnout has occurred. 

T^ie following are the port perimeter and propellant cross sectional 
area equations for this addition to the standard star configura- 
tion. Figures 5.8 through 5-13 show the progression of the burn- 
ing surface and the geometric figures required for each equation. 


1. lfT<R 2 (Figure 5.8), 
Perimeter = 9 q(Rj + T ) 

Area = 0 Q [R f 2 - (Rj + t) 2 ] 


2. If t > R 2 (Figure 5.9), 


L AJB = arc sin 


< R f " R 5'“ V 

“T sIn e 2 

6max 5 


L ABC - ■ < - 0 2 - L AJB 


L ACB = arc sin 


( R f - r 5 : V 


sin L ABC 


L BAC = jt - L ABC - L ACB 

i.... ; : 

sin L BAC 


BC = R 


f sin L ABC 


T V6 


T V7 


- BC - Rj 

(R t: -R s -T w ) 2 -R 1 2 +R g 2 -2(R f -R s -r w )R 5 cos L ABC 
= 2Rj - 2R^ + 2(R f -R 5 -T w ) cos L ABC 


Temp^ = minimum of T^ 7 and 


V7 


V6 
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Slotted-Cone (Continued) 


Area = Area^ - OR AR s!n(jt/2 -ZARB) 


(2) 0rifZ_QAG<9 0 

Z_PAd = 9 0 - /LOAG 

Pd = /.PAQ^ + x) 

(Rj + T) sin Z_RAQ. 

^ = s l n { «/ 2 -Z ARB) 

Perimeter = Pd + OR + RS 

Area = Area*"QR AR sln(jt/2 -Z. ARB) - Z.PAQ(R^+t)' 


5. If R 2 < T < Temp 76 , and If T 6max < x > T 7max (Figure 5.11), 
Z. SAB = arc cos 


R f 2 +(R f -R 5 -T w ) 2 - (Rg+X) 2 1 

. 2 MVVV 


Z. SAG = L SAB - 0. 


AR = [(Rg+T) 2 + (R f -R 5 -T w ) 2 -2(R 5 +T) (R f -R 5 -T w )cos Z-ABcj 


1/2 


Z_RAB =. arc sin 

L RAG = L RAB - 0 2 

Z- ARB = Jt - L ABC - Z RAB 
L ARd = | - L. ARB 


(R 5 +t) Sin Z. ABC 
AR 


L. ACL = « - arc sir, 


AR sin L ARd 
(Rj * *) 

Z OAR = jt - L AdR - L ARd 


Z dAG = Z OAR + Z.RAG 
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5.1.2 


Slotted-Cone (Continued) 


a. And SAG > 0 n 
— 0 


Complete burnout has occurred, 

Perimeter = 0.0 

Area = 0.0. 


b. Or SAG < 6, 


L. ASB = arc sin 


(R f -R 5 -T w )sln(0 2 + Z SAG) 

' (r 5 +x) : ; 


Z SBA = « - 0 2 - i— SAG -L ASB 


Areaj - (0 Q -Z_SAG)R f 2 + R f (R f -R 5 -T w ) sin (0 £ + Z.SAG) 


L RQA = * - arc sin 


AR sln(7t/2 -Z. ARB) 

TRj + T ) 


L RAQ = | + Z ARB - Z_ RQA 
L QAG = Z RAQ + Z RAG 
L RBS = Z_ SBA - ZABC 
RS = Z rbs(r 5 + T) 

(1) and tf Z RAG > 0 Q go to 4a 

(2) or tfZ-RAG < 0 Q < ZQAG go to 4b(l) 

(3) or If L RAG < 0 Q > ZQAG go to 4b(2) 

6. If R 2 < T > Temp^g, and If 

Complete burnout has occurred. 

Perimeter =0.0 
Area =0.0 
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Slotted-Cone (Continued) 

7. If R 2 < T - TEMP 7 £, and if T^' > and T < T w (Figure 

■ 5.12), 


ZTQAB = arc cos 


Z AQB = arc si 


R R V1 + T ) + ( R f “ r 5 " T w ) “ ( r 5 + T ) T 

5 L ' 2(R i + T )(Rf - R s - ■ J 

f(R f - R - T w ) 5ln(ZQAB)l 

"L — J 


^ABQ = jt - ZAQB - ZQAB 


ZASB = arc si 


f(R f - R 5 - T w ) sln(6 y )~ 

"L W 5 + T) 


ZABS = if - 0 2 - Z ASB 
ZQAG = -£QAB - 0„ 


a. and ^QAG > 0 Q 


Z AQ.B = arc si 


f( Rf - R 5 - V sin ( e 2 + e 0 )n 

n L j 


Z ABQ = * “ 8 2 - 9 0 " ^AQB 

Z.QBS - ZABS - Z ABQ, 

PERIM = ^QBS(R 5 + T) 


b. ori ^IQAG < 0, 


PERIM - (^ABS - ^ABQ)(R 5 '+ t) + (0 Q -ZQAG)(Rj + t) 
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Slotted-Cone (Continued) 

8. If *2 < T ^ Temp ?6 , and !f T v6 > T V7 and T > T w (F,9Ure 5 * 12 ^ 


r „ 2 


L. SAB = arc cos 
L SAG = Z—SAB - 9 


a . and Z.SAG > 9 Q 


Rf + ( R f - R 5 - T w ) “ ( r 5 +t ) 


21 


Complete burnout has occurred. 

Perimeter =0.0 
Area = 0.0 1 


b. Or Z SAG < 0 Q 
L. QAB = arc cos 

. . . i" 

L QAG = Z. QAB - 9 
L. ABS = arc cos 


(R j+T) 2 + <R f -R 5 -T w ) 2 - (R 5 +T) 
' 2(R 1 +T) (R f -R 5 -T w ) 


( R f’ R 5" T w )2+(R 5 4T)2 ~ R f 21 


21 


2(R f -R 5 -T) (R $ +t) 


(1) and If Z.QAG > 0 Q 


4- AQ.B = arc sin 




( r 5 + T) 


L. ABQ, = it - 0 2 “ 0 o - Z AQB 
L QBS = L. ABS - L ABQ, 

QS S = L QBS(R 5 + T) 

Perimeter = Q.S 


Area = - L SAB)R f 2 +R f .(R f -R 5 -T w )sln L SA8 

-(R 5 +T) 2 L QBS-(R f -R 5 -T w ) (R 5 +T)sin Z_ABQ 
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Slotted-Cone (Continued) 


(2) Or If ZQAG<e, 


L ABQ. = arc cos 


9. 


2(R f -R 5 "V (r 5 +tj 


2n 


Z Q.BS = Z ABS - Z ABQ, 
as = Z QBS (R 5 + T) 

L PAa = e 2 + e o " L QAB 
p Q = Z PAQ (Rj + t) 

Perimeter = PQ. + .QS 


Area = (9 2 +0 o - L SAB)R f 2 +R f (Rf-Rj-^s!" L SAB 

-(R 5 +t) 2 Z aBS-(R 1+ T) (R f -R 5 -T w )sin Z QAB 
-(0 2 +0 o - ZQAB)(R 1 +T) 2 


If R 2 < T > Temp 76 , and If T^ 6 < T^ y (Figure 5. 13 ) a 

1 1/2 

AT [( R f - R 5 - V 2 +( R 5 +T) - 2 ( Rf " R5 - T w )( R 5 +t)cOS ^ ABC J 


(R.-R -T )sln Z ABC' 

,i ^ f 5 w 

Z ATB = arc sin | 

Z STA = rf/2 - Z ATB 

Fat sin Z sta' 

Z AST = rf - arc sin * 

' f. j 

Z TAB = Jt - Z ABC - Z ATB 

l. 

Z SAT = Jt - Z AST - Z STA 
Z SAG = Z SAT + Z TAB -6. 


a. And Z SAG > fig 

Complete burnout has occurred. 
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5.2 


5.2.1 


Grain L^gi tudinal Geometry 


Represent vti ve longitudinal configurations which can be accomo- 
dated by the conouter program have been shown in Figure 2.2.. 

Many configurations are possible: monolithic or segmented grains 

In the cylindrical section of the motor; head-end with web or a 
straight through qrain in the fore-head section; straight through 
grain In the aft-head; external and internal taper; and elliptical 
contour fore-head and aft-head motor sections are.examples. _ 
Grain cross sect iona l’ geometry can be varied within the cylindrical 
section of the motor. 


Head-End with Web, Fore-Head Section 


This section describes the analysis of the head-end with web 
which is solved in the third control routine of the prooram. 
Description of the head-end with web calculations are based on 
the motor fore-head section shown in Figure 5.14. Grain geo- 
metry within the fore-head section is based on the input geome- 
trical cross section at the forward tangent plane. 


The burning surface area for all distances burned and the thttial 
propellant volume are obtained by separating the analysts into 
four blocks. Each block performs the following function: 


Block 1 calculates the surface area versus distance burned and 
the initial volume of the propellant tip. The volume and area 
are obtained by integrating elemental areas and volumes consist- 
ing of trapezoids and parallelograms. 


Block 2A calculates the surface area of the pseudoell ipso id 
minus ; the igniter opening using the Theorem of Pappus. Slock 
2B calculates the volume of propellant between the inner and outer 
ellipsoids and the surface area on the pseudo ellipsoid which is 
covered by the propellant tip. The volume and area are obtained 
by Integrating elemental areas and volumes using the Theorem of 

Pappus. 


Block 3 calculates the Initial total propellant volume. _ The 
volume between the inner and outer ellipsoids is determined from 
the difference in volume of two oblate spheroids. The volume or 
the tip is obtained by adding the volumes of cylindrical segment 
elements . 


Total surface area. A, versus distance burned is obtained by com- 
bining the blocks: 


A " A block 1 + A Block 2A " A Block 2B 


The initial propellant volume Is calculated In two ways, one 
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5. 2. 1.1 


f 


Volume = 


^Block 1 + 


^lock 2B 


The Initial volumes are compared In subroutine VOLSUB and a correc- 
tion factor, A r , Is obtained which Is added 'to the total burning 

surface area. This Is due to the assumption that the difference 
Is 1 caused by the Integration method In the Block 1 analysis. 

Subroutine HDNSUB 

Subroutine HDNSUB Is the control routine which sets up the cor- 
rect variables and equations to perform the block 1, 2A, 2B, and 
3 analysis. 

Bliock 1 Analysis 

The generalized forked wagon wheel grain configuration Is divi- 
ded Into 13 sectors (1, 2, 3, 3A, 3B, 4, 5, 6, 7, 9, 1 , j 

11A, 11B, 12, 13) as shown In Figure 5 • 15 - Sectors 14 4 % 
q i 6 7 9, 10, 12 and 13) share a common analysis, as do sec- 

tors' (3 and ULand (3A, 3B, 11A, and MB); however, some of 
the sectors have special equations for .Jne segments and angles. 
The sector boundaries used for the head-end with web analysis, 
Figure 5.15, are different than sector boundar ies^used for the 
straight through grain analysis, Section 5.2.3 and Figure 5-32 . 

Sbbroutlne SCI Is the control routine to determine the surface 
area versus distance, burned and Initial volume of the prope - 
lant Up for the block 1 analysis and Is called from subroutine 
HDNSUB with an argument L to Indicate the sector to be computed. 
The analysis for sectors 1 and 3 will be explained In. detail 
s| l nee the analysis for the other sectors Is similar. 

Figure 5.16 shows geometric constructions and calculation con- 
trol planes used to obtain elemental burn surface areas and 
propellant volumes In the propellant- tip. Also shown Is part 
df a forked wagon wheel grain and the requ.tred constructions. 

For clarity, only one tip Is shown. Two planes, "A" and B , 
control volume and area calculations for the propellant tp. 

These two planes are generated as follows: The Intersection 

of the surface of the propellant tip with the forward tangent 
plane, l.e., the tangent plane perimeter. Figure 5- 16b, Is di- 
vided Into Incremental lengths, £L0. Lines, spaced £L0 apart, 
perpendicular to the tangent plane, are run from the tangent 
plane along the side of the propellant tip to Intersect the 


Inner ellipsoid 


These Intersections locate points P Qa and 


ob' 
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5 . 2.1*1 Block 1 Analysis (Continued) 

Perpendiculars to the side of the propellant tip from points P Qa 

and p locate points P la and P lb on the plane of symmetry or on 

thL outer ellipsoid depending on the Initial location of each 
along the propaUant tip perimeter in the tangen piane. 

F ijgure 5 . 16 a shows P Ja and P lb on the plane of symmetry. 

pjndlculars to the Inner ellipsoid at points P Qa and P Qb locate 

points P„ and P_. on the outer ellipsoid. Points P Qa , ? la j p 2a ' 
2a 1 ■ * • - -1 points P 3a and P 3b 


P 6b' P lb' and P ^ deflne the A and B P lanes * 



life in the A and B planes and are located on the outer ellipsoid. 

The trapezoid formed by £L0 on the perimeter of the tip at the 
tangent^plane and points P Qa and P ob Is the area calculation 

element. 

Peroendiculars, In "x-z" planes, for these same four points 
form the volume calculation elements which are bounded ^ 
thaDezoIdal area elements as shown in Figure 5-16. The ALO 
spacing on the propellant tip perimeter which governs plane 
placement varies in value along the perimeter as follows: 

The ALO spacing. Figure 5.16b, is calculated first as: 


a) ALOj of each sector Is: 


where ^ Is an input parameter 


D I and 0 are the distances between planes A and B, 
pr ps 
Figure 5.17. 


U J 4*0* 14*4 «fv. I.H 


USE FOR TYPEWRITE MATERIAL ONLY 


COMPANY 


NUMBER D2-125286-1 
REV LTR 


5-2a 1.1 


Block 1 Analysis (Continued) 


The factor K, an input variable. Is the major parameter In 
determining the distance between the two planes. The incremen- 
tal distance ALQ is stepped along the sector perimeters from 

L = 0 to L = l . 
x x p 


5.2. 1.1.1 Sector 1 (Figure 5.15) 


Subroutines ASUBC, BSUBC, RASUBBy XRSUBB, THETAR, GAMSUB, GAMA2S, 
*0SUB, P1SUB, P3SUB, ROPSB, and VSTRSB are used to obtain the 
surface area and Initial volume for sector 1. 

The distance between the points P Q and P^ on the Inner el- 

lipsoid are shown In Figure 5.18 for planes that are located at 
increments of one-tenth the perimeter length of a sector. A 
minimum perimeter- length, HOLDR, is set equal to the perimeter 
length in which the distance for the plane is greater than 

the burn distance, T. The first plane Is located at the peri- 
meter length HOLDR and subsequent planes are spaced the distance 
ALO apart. HOLDR is Initialized to the perimeter length for 
plane B on subsequent iterations. 

After the minimum perimeter length, HOLDR, Is determined, the 
distance D for a plane located at the total perimeter AL ( 1 ) 

for the sector Is determined. The parameter TDMAX Is initia- 
lized to the maximum value of TDMAX or D^ for the sector and 

then checked with the maximum permissible burn distance, TAUM. 

If TDMAX equals or exceeds TAUM, an error condition exists and 
execution Is terminated, if all Dg^'s are less than TAUM, the 

radial burning surface area between the planes and the burning 
surface area on the propellant tip are determined. 

Radial burning surface area, Figure 5.17: 


(L ta + L tb ) (D „ + D ) 
TA TB' x pr - ps 7 • 


Propellant tip burning surface area: 


AS 1 = 


< L P - HOLDR) (ft 2 - T) (Y m ♦ Y ob ) 
2R_ 


where Yg Is defined In Figure 5.21. 
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5. 2. 1.1.1 Sector 1 (Figure 5*15) (Continued) 


Lp Is Lhe perimeter length along the Initial grain perimeter 
measured from the beginning of a sector to a general point, 
HOLDR is the prior Incremental value of Lp. 

The Initial volume is determined from the following equation: 


< Y 0A + Y 0B )(L P - H0L0R)R 2 


STR 


Subroutine ASUBC 

Subroutine ASUBC sets up the correct variables and equations to 
determine the coordinates (X, Y, and Z) of the points P Qa , P^ , 

and P^ a for planes located at increments of one-tenth Lp along 

the perimeter of the sector. Subroutines RASUBB, XRSUBB, THETAR, 
GAMSUB, GAMA2S, POSUB, P1SUB, P3SUB, and TRAN are called to 
determine the coordinates. 


Subroutine RASUBB 

Subroutine RASUBB determines the length of the radius vector, R^, 

from the motor axis to a general point in a sector. The perimeter 
length from the beginning of the sector to a general point Is 
required in calculating a value of R^ for each sector, Figure 5*19. 

Subroutine XRSUBB 

Subroutine XRSUBB determines the X-coordinate, X , for a point 

f* 3 

located on the perimeter of a sector. The parameter R gT from the 

RASUBB subroutine Is required to obtain the coordinate. A se- 
parate equation is required for each sector, Figure 5.15. 

i ■■■■•■■ 

Subroutine THETAR , , 

Subroutine THETAR determines the angle, 0 , between the Z-axis 

f" 

and the line segment R The parameters X and R _ are re- 

s i ra aT 

quired to obtain © r , Figure 5.15. 

Subroutine GAMSUB 

Subroutine GAMSUB determines the angle y ^ between the line normal 

to the perimeter in the XZ-plane, and a line normal to the line 
segment R^, Figure 5.19. The perimeter length of the sector and 

the angle 0 are requtred to obtain y A separate equation for 
I ' * 

each of the 16 individual sectors Is required, y ^ for sector 3A 

Is not equal to y . for sector 3B (also true for sectors 11A and 
1 IB) . 1 
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5. 2.1.1. 1 Sector 1 (Figure 5.15) (Continued) 


Subroutine GAMA2S 


Subroutine GAMA2S determines the angle 7 2 between the Y-axis and 

/y \ 2 I Z’V 

a line normal to the ellipse (- — j + I ^ — 1 = 1 , which is de- 

k oe/ \ oe/ 


fined by the ellipse ratio 3 , at the point Z 1 = RAT. Although 

is in the rotated YZ ‘-plane and not in the YZ-plane, because 

of the symmetry of the ellipsoid about the Y-axts, computation 
can occur in the YZ-plane, Figure 5.20. 

Subroutine POSUB 

Subroutine POSUB determines the coordinates X, Y, and Z of the 
point P Q which is located at the Intersection of the inner el- 
lipse and a line extended along the propellant surface parallel 
to j the tip from a general point on the perimeter, Figures 5*16 
and 5 . 21 . 

The parameters R _ and 0 are required to determine the coordi- 
sir 

nates. The coordinates X and Z are obtained by trigonometry 

yj u , 

from R^ and 0^, Figure 5*21. The equation of the ellipsoid: 

/ Y o \ 2 /V +Z o 2 \ . 


yields the coordinate Y . 
i o 

The remaining points defining the plane (P^ P^j and P^) are ob- 
tained from P . Radial burning in the plane originates at P . 

o o 

Subroutine P1SUB 

Subroutine P1SUB determines the coordinates (X^, Y^, and Z^) of 
the point Pj which is located on the Y-Z plane or on the outer 
ellipse along a line through point P Q and normal to the sector * 
perimeter as shown In Figure 5.22. P^ is normally located on 
the Y-Z plane; however, for sectors 7 and S, when the angle 7 ^ 
exceeds Pyj^x In sector 7 or Pgi max sector S, the point P^ 

Is located on the outer ellipse and is coincident with P^. The 
line segment Z^^ shown in Figure 5*19 is used to flag subroutine 
P3SUB that Pj Is coincident with P^ whenever Is non-zero. 
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| 5.2. 1.1.1 Sector 1 (Figure 5.15) (Continued) 
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^ 91 max anc * ^71max are 9 eornetr Y plane constants discussed in 
Section 5.1.1. 

5ubrouti,ne P3SUB 

Subroutine P3SUB determines the coordinates (X^, Y y and Z^) of 
the point P_ that Is located on the outer ellipse. If Z, de- 
termined in subroutine P1SUB, is not equal to zero, P^ Is coinci- 
dent with Pj and the coordinates of P, are set equal to the coor- 
dinates of Pj. If Z laT is equal to zero, then P^ Is in the Y-Z 

plane and the coordinates of P are determined from the angle 4> 
shown in Figure 5.22. ■ 

Subroutine ROPSB 

Subroutine ROPSB sums the values of the Y axis coordinate of P 


(Y 0A aod W ° r P o 


<V and V 0A or Y 0 b' and V 0B ) ln pla " ,ss A 


and B which are used in subroutine SCI to compute the surface 
area along the grain face. If the burn distance T Is greater 
than the maximum permissible burn distance for the sector, then 
the value of the sum is set to zero. 

Subroutine BSUBC 

Subroutine BSUBC sets up the correct variables and equations to 
determine the coordinates (X, Y, and Z) of the points P Qb , P lfc) , 

and P 3 b located at increments of ALO along the perimeter of sec- 
tor 1, Figure 5.15* The A plane coordinates are initialized 
to the prior B plane coordinates du?‘Tng the Integration along 
the perimeter. 

Subrout i ne VSTRSB 

Subroutine VSTRSB determines the Initial volume of the sectors. 
The incremental volume for each sector is determined from the 
incremental cross-sectional areas of the sectors and the average 
of the P Q point Y-coord inates of the A and B planes. 


5.2. 1.1.2 Sector 3 


Subroutines HASUBC, HBSUBC, HAPSBC, HBPSBC, 

OPRASB, RASUBB, XRSU85, THETAR, GAMSUB, GAMA2S, POSUB, P1SUB 
P3SUB, and ROPSB are used to obtain the surface area and initial 
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5.2. 1.1.2 Sector 3 (Continued) 


volume for sectors 3, 3A, and 3B. As In sector 1, two planes 
are used to obtain the surface area. The distance between the 
planes A and B is determined by ALO In the same manner as for 
sector 1. The analysis for the surface area In sector 3 Is 
similar to the analysis for the surface area In sector I ex- 
cept that the A and B planes will cross as shown In Figure 5.23 
for sectors 3 and 11 and In Figure 5*24 for sectors 3A, 3B, 

11A, and 1 1 B . 

The perimeter length of sector 3A (AL3A) Is determined from the 
geometry constants, and the coordinates of points P , and 


Pj for both planes A and B. 


Since the surface area of sector 


3B Is Identical with the surface area of sector 3A, the grain 
surface areas of both sectors between the planes are determined 
simultaneously by stepping the B -plane an Increment £L0 along 
the sector 3A perimeter. The surface area along the grain be- 
tween the planes is determined from the following equation: 


AS I = 


< Y 0 - V> 


[<> 


- v> + (z o - z o' y 


1/2 


The surface area along the tip for sector 3 Is determined from 
the following equation after the integration for sector 3A Is 
complete: 


AS I = L. 


( R 2 “ T ) ( Y 0A + Y 08^ 


‘2 


where Is the Initial sector 3 perimeter length. 

The Initial volume of sector 3, and sectors 3A and 3B, Is de- 
termined at the beginning of subroutine SCT0R1 after completion 
of the block 1 analysis as follows; 


r STR 


< Y OA +Y 3A + W Y 3B> . '“orV < Y OB +Y 3B )R 3 

■ E + ' 4. 


Subroutines RASUBB, XRSUBB, THETAR, GAMSUB, GAMA2S, POSUB, P1SUB, 
P3SUB, and ROPSB have been explained in Section 5. 2.1. 1.1. for 
sector 1. Therefore, only the subroutines unique to sector 3 
are explained In this section. 
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5.2. 1.1.2 Sector 3 (Continued) j ; 

i 

Subroutines HASUBC, H3SUBC. HAPSUBC, and HBPSUEC 

The jfunct ion of these subroutines is the same as the function of 
subroutines ASUBC and BSUBC vor sector 1; the correct variable i 

• and iequations are set up to; determine the coordinates (X, V, : 

and Z) of the points P q , P^> and P^ for planes located at in- 
crements of £10 along the perimeter of the sector. Subroutine 
HASUBC deals with plane A, subroutine HBSUBC deals with plane 3, 
subroutine HAPSBC deals with plane A‘, and subroutine HBPSBC 
deals with plane B 1 , Figure 5.24. 


i 


Subroutine DPRASB determines the distance between the points 

P' and between P and P ! that lie on the planes pro- 
ra j ra sa sa r r 

duced in sector 3A as shown in Figurs 5.24. These distances 

DP,. a and DP sa are used in subroutine SCI to alter the distance 

between the planes (£10) for each successive iteration as ex- 
plained fn Section 5.2. 1.1 for sector 1. 


5.2 1.2 Block 2A Analysis 

Subroutine SCTORl-is the control routine to determine the sur- 
face area of the pseudoellipsoid for the block 2A analysis and 
is called from subroutine HDNSUB. The initial volume of pro- 
pellant for sectors }A, 3B; 1 1A, and 116 is determined prior to 
the integration for the pseudoellipsoid surface, area. 

Points P Q knd P^ that are used In Block 2A are not the same 

plane points used in the Block 1 analysis. Points P Q and p^ 

lie on the inner ellipsoid and are spaced a distance OS along 
the ellipsoid^ Figure 5.25; starting at the igniter opening. 

The spacing of P q and P^ are determined as follows; 
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5 . 2 . 1.2 


Bloc k 2A Analysis (Continued) 




First 

where 

AR 

rr-” - Is an Input parameter 

R f 

R^. grain radius at the forward tangent plane. 

Then each successive Increment Is 

AO KK ad 

^ " DS m 


In 

Z 

to 

to! 


where KK Is an Inputs 

Itially, If the motor has an Igniter hole In the head end., 

, which Is the Z-coordlnate of the pointy P Q , Is set equal 

R . Otherwise, Z pQ Is set equal to zero. AR Is then added 

Z p0 to obtain Z pl , which is the Z coordinate of the point PI. 

Subroutine YPSUB Is then called to obtain the Y coordinate of 
points P Q and P^. The radius of curvature p 1 at the point P 1 

on the pseudoel 1 1 pso id, the 'length, b, of the Y-Intercept of the 
normal line to the ellipse at P Q , and the Z coordinate Zj are 

then determined to obtain the arc length, Lq. Using these 

values, the Incremental strip surface area Is determined. This 
procedure Is then repeated by setting Z p g = Z p j, and Z p ^ = Z p g 

+ l £R until Z„, = R r - T . The area adjacent to the Igniter hole 
PI r w 

Is then determined and added to the Incremental sum. 


Subroutines YPSUB, R0E1SB, LBSUB, Z 1 SUB, and AIGSUB are used to 
determine the surface area of the pseudoellipsoid. The surface 
area for an incremental strip, as shown In Figure 5»25> Is deter- 
mined by the following equation: ■ 


AS 


«Lq 
= 2N0 


< z n + T sl " a rcl + 2 P0 + T s,n “reO> 
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5.2. 1.2 


Block 2A Analysis (Continued) 


The surface area for the entire pseudoelllpsold, Including the 
Igniter hole, Is obtained by summing the Incremental ■•'^as. 

The surface area around the Igniter hole Is added to : iniiof 
the Incremental areas. The lateral surface area of the Igniter 
hole Is assumed to be a non-burning Inhibited surface. 

Subroutine YPSUB 

] 

Subroutine YPSUB determines the Y coordinate of a point on the 
pseudoel 1 1 psol d. The angles Q^q and a rc j the points Pq 3 

and P^ as shown In Figure 5*25 are also determined. 

Subroutine R0E1SB 

Subroutine R0E1SB determines the radius of curvature pj at the 
point P Q on the Inner ellipsoid. The radius of curvature Is 
determined by the standard equation: 


1 + (Z») 2 1 3/2 
Z" 


where 


z . = « 

L dy 


Subroutine LBSUB 

Subroutine LBSUB determines the length b of the Y-intercept of 
the line normal to the inner ellipse at P q> Figure 5*25. The 

length is used in subroutine ZISUB to obtain the coefficients 
of the ellipse equation which defines the pseudoellipsold. 

Subroutine ZISUB 

Subroutine ZISUB determines the. Z-cpordlnate produced by the 
Intersection of the outer ellipse: 


(*)’*(£) 


and the normal line to the ellipse at PI. 
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Block 2A Analysis (Continued) 


Subroutine AIGSUB 


Subroutine AIGSUB determines the surface area around the Igniter 
opening. The urea Is obtained by finding the surface area of 
revolut ion .wh ich requires an angle rt/NO, an arm length 

T sI " °VN . ' 

- + R j , and an arc length T a_ N , Figure 5.26. 

Initially, the Y-lntercept of a line normal to the Inner ellipse 
at the Igniter radius is obtained, 

T n 21 1/2 


from which the angle between the Y-axis and the Igniter opening 
on the Inner ellipse Is obtained, 


°VN ■ 2 ‘ arC C0S 




21 1/2 


and then the surface area of revolution Is determined (Theorem 
of Pappus) 

A Ig ’ (2R lg + T sl " a rU> 


Block 2B Analysis 

i 

Subroutine SCT0R2 Is the control routine to determine the sur- 
face area on the pseudoellipsoid that is covered by the pro- 
pellant tips for the block 2B analysis. The surface area Is 
determined by dividing the cross-sectional grain configuration 
fnto 12 sectors In subroutine HONSUB, as shown in Figure 5.27. 
The surface area on the pseudoellipsoid for each sector is then 
determined by subroutine S2SK. Summing the surface areas for ' 
all sectors, and subtracting this area from the area obtained 
in blocks 1 and 2A, yields the total surface area of the head- 
end with web for any value of t. 
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Block 2B Analys I s 


Subroutine S2SK 


Subroutine S2SK determines the sector surface area on the 
psfeudoel 1 1 pso i d and Is called from subroutine SCTQR2 with an 
argument to Indicate the current sector. Each sector ts set 
up to determine the Incremental surface area contributed by that 


sector. Thus, In sector 3* Z p g Is set equal to R 


p2 , then R p3 


Is obtained and 0 Is set equal to 0 , . Is then added to 

Z po to obtain Z p ^ as shown In Figure 5.28. Y p Q, Y p ^ and DS are 

then determined. The spacing for £R Is .calculated In the same 
manner as was done In Block 2A. 

Finally, the parameters L pp , X^, 0^, 0 pJ , <X. c(J , a. cl , Pj, b, 
Zj, and Lq are determined and the Incremental surface area for 
the sector Is obtained from the equation. Figure 5.25: 

l Q = (e, ■+ OG* rc , - a.,*) 


AS = U Q (Z P1 + T sIn “rcl + Z P0 + T s,n “reO 5 


(9 rl + 9 rb> 


Zp|j Is then set to Z p ^ and the procedure repeated until Z p j 
equals maximum radius of the sector. 

The Initial volume between the Inner and outer ellipsoids for 
each sector Is determined as follows (see Figure 5*25): 


V ST0 " D P 1 + W " °1 ] ^ 9 r! + 9 r0^ a rcl " a rco' 


Z G N 0 


where: 


z i - z pi 

sin a , 


* B l< a rcl ’ a rcO> 

= ^ e l + W^rcl ' 


a A 

r c(r 
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5.2*1. 3 


5. 2.1. 4 


Block 2B Analysis (Continued) 


*WB ‘ 


(2D S2 + D S1> °WB 
3 ‘°S2 + °S1> 


+ Z pl' 


^WB 


sin 


a . + a A 
rcl rcO 


Subroutines YPSUB, XRTHR, R0E1SB, LBSUB, and Z I SUB are used to 
obtain the surface area. All of these subroutines except XRTHR 
Have been explained In Section 5.2. 1.2 for the block 2A analysis, 

Subroutine XRTHR 

Subroutine XRTHR Is a set-up subroutine that uses subroutine 
XRSUBB to obtain the X-coordlnate of a point located on the peri- 
meter of a sector shown In Figure 5.28. The angle 8 , between 

rl 

the Z axis and a line from the motor axis to the point on the 
sector Is also determined. 


Block 3 Analysis 

Subroutine VOLSUB Is the control routine which determines the 
Initial propellant volume for the block 3 analysis. Initially, 
the volume present In the web region is determined from the 
volume produced by the difference of volumes of two oblate 
spheroids minus the volume of the Igniter hole as follows: 


'EH 


" f * <B le A le 2 - 6 


A )- « R, (3, - B ) 

oe oe ' Ig ' Je oe' 


Next, the volume of the propellant tips Is determined by dividing 
the grain configuration Into 12 sectors as was done In block 2B, 
Figure 5.27. The volume contributed by each sector (subroutine 

to obtain the total volume of propel- 

Finally, the surface area generated 

by radial burning from the line of Intersection of the propel- 
lent tip with the head-end web, A R , Is approximated In the fol- 
lowing manner: * 


Is then added to V 
lant In the head-end, V 


The propellant volume In the radial burning portion Is deter- 
mined, 

V R = V fH “ V EH + V ST0 ’ 2 V STR N 0 
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5.2. 1.4 Block 3 Analysis (Continued) 


The value for thickness burned at which the maximum surface area 
of this radial burning portion occurs Is assumed to be the thick- 
ness at which the Initial burnout of the web portion of the head- 
end web begins (for most cases this is very nearly correct). 

The curve for surface area versus thickness burned for this fuel 
volume Is assumed to have the following equations (Figure 5 . 29> J 


(TDMAX - T WH ) q * 


WH 


for t < t wh 


(TDMAX - T) 1 


for T WH C T < TDMAX 


for T > TDMAX 


where 

TDMAX 


WH 


= maximum burn distance In the head-end section 
= maximum web thickness in the head-end section 
= calculated exponent 


The maximum thickness burned In the head-end web Is determined. 


If 

B u- 

CO 

o 

m 

> v 

t wh 

If 

B !E ’ 

CO 

o 

m 

VI 

T WH 


J 0E 


•The radial burning volume Is matched to the following integral 


(V = V ) by an iteration process to. determine the exponent q, 
^ RX 


RX 


- / 


WH 


(TDMAX - T wh ) 


TDMAX 


WH 


| VI If 

Tdt + J (TDMAX - T) q dT 


WH 


or 
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5.2.2 Cylindrical Section (Continued) 
sliver option Is used. 

I 

Inj segmenting propellant grains, the location of the slots, which 
separates the grain segments, Is determined by defining the dls- 
tance-of the slot forward and aft Interfaces from the forward i 

tangent plane of the motor. This Is shown by the values SA(|), SB(I), ! 
SA(2), SB ( 2 ) , etc., Figure 4.3. The increment dividing planes, in this i 
case, are determined as above/ but with each segment treated as 
having a forward and aft tangent plane. The reference planes may 
be located within a slot, within a grain segment, or on a slot 
Interface. The restrictions on the number of increment dividing 
planes and reference planes Is also 100 and 18 respectively. 

The following describes the subroutines which determine the longi- 
tudinal geometry for the cylindrical section! 

Subroutine MNCHN4 

Subroutine MNCHN4 contains the program control logic required to 
obtain the. Internal ballistic solution and the control logic used 
to | In 1 1 ia 1 ize the working reference planes for subroutine SEGSUB. 

During burning, the distance burned at each reference plane for 
each time increment Is determined by linear interpolation between 
adjacent Increment dividing planes. When the reference plane is 
located. within a slot, the increment dividing planes located within 
the grain segment are used for extrapolation to obtain the reference 
plane distance burned. Whenithe distance burned has been determined 
for each input reference plane, the perimeter length, port area, and 
radTus of gyration for each reference plane, and the burn area and 
CG location for each head section is determined from a table look- 
up procedure In the geometry tables. 

During the internal ballistic solution for each time point the 
cylindrical. section working reference planes (X and Y) are set up 
for successive input reference planes (1-2, 2-3, etc.). 

Subroutine SEGSUB 

Subroutine SEGSUB contains the program control logic which determines 
the perimeter length, cross-sectional propellant and port area, 
propellant volume, and mass generation at each Increment dividing 
plane or mass add 1 1 Ion region. The control logic is set to check 
for the existance of a slot forward 1 Interface between adjacent 
Increment dividing planes, to check the location Of the current 
upstream (X) and downstream (Y) working reference planes, and to set 
the parameters required in performing the gas dynamic solution for 
the slots and mass addition regions. Each increment dividing plane 
case radius, perimeter length, sliver radius, fuel area and port 
area and radius of gyration are obtained by linear Interpolation 
between each reference plane. 
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5.2.3 


Straight Through Grain, Motor End Sections 

The foliowJng Is applicable to motor aft-head or fore-head sections 
vlth straight through grains. A straight through grain Is shown 

F ?* r ® 5 j 1 ' The E sufa scrlpt shown Is set to N for analysis of 
the aft-head and to H for the fore-head. 

Basic geometry constants required for analysis are calculated prior 
to determination of burn surface area versus distance burned and 

VOlUm ! - 'heseconstants ara calculated In subroutine 
ENDCSB and are shown In Figure 5.30. 


5*2.3. 1 geometry Constants 

j 

Subroutine ENDCSB 


Initially, the case opening radius Is determined from the Input 
parameter DEI: r 

R = hi 

R E1 2 

Then the angle between the tangent to the ellipse section at the 
radius and the motor axis Is determined: 

1/2 

a ER - arc cos R gl / [(R f 2 - R 2 ,) p 2 + r^ ] 

■ f 

• 1 ■ t::"”.'.': 

where R- and are Input parameters. 

j C 

•f a ER ,s less than or equal '= 'he maximum allowable angle, 
°0Emax' def,ned b y ln P ut > 'hen a 0Ema)< Is set to a ER , R„ 2 Is set 
to R £1 and h £1 Is set' to zero. If, however, a _ Is greater than 

“oEmax' then 


C0S (°0Emax) *f % 

tcos(0, 0Emax> 2 4 - <°b E ma/ + 2 -°]‘ /2 


sin (ql_ ) 

h El = («„ - R-.) °|ES>!1 

E2 El cos(a7T T 
' QEmax' 

Next, the length of the head elliptical section Is determined: 

2 2 J /2 

h E2 " t R f - R E2 ] / 
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5.2.3. 1 


Geometry Constants, Subroutine ENDCSB (Continued) 
and the length of the end section Is computed t 


h E0 = h El + h E2‘ 


If h £0 Is less than the maximum burn distance at the adjacent 


tangent plane, determined In Section 5.1, Geometry Constants, 

the end section Is lengthened to the maximum burned distance: 


h ER " T max 


If, however, h £0 Is greater than or equal to then h £R = h £Q . 
Finally, the maximum burn distance In the conical section and the 
end section Is determined: 

1/2 


T E1 = [(R E2 “ R E1 )2 + h El 3 


' t E 0 * ^ R f 2 “ R E1 )2 + h E0 3 


1/2 


The complete end section case volume Is determined from: 

2 

V CE = (h ER " V * R / + 1 [3 5; ‘ h E2 ] U h E2 P £ ] 


+ (R E2 R e1 + R E1 + R E2 3 71 3 


Th*e following coefficients are calculated for use In subroutine 
RCSUB when the burning distance T > The y are t e coe c en 

of a fourth degree equation of the Intersection of an ellipse and 
a circle and are used to compute the location of Intersection of 
the burning surface and the case wall. 


CAE = 

- 

c. 

1) 


CBE = 

1 

TJ> 

m 

ro 

1 

1) 

2 

Pi 

CCCE 

- R 

2 

El 

3 + 

CCVE 

= 2(P e 4 

- P 

'e*> 

CDCE 

= C (h Ec 

1 + 

r ei 


R E1 4 


2 

’eo 


«? 


4 


2 2 


2 .2 
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I , I 5. 2. 3. 2 Calculation Sectors and Zones (Continued) 


Subroutine ASESUB 

Subroutine ASESUB Is the control routine to determine the total 
burning surface area and Initial volume Of the end sections. The 
grain cross-section at the adjacent tangent plane is divided Into 
sectors, Figure 5-32. The correct equations from subroutines 
XRSUB and RASUB are set up and the proper values for the coordinates 
°; f the origin of the circular arc, X QV , Y QV , the radius of curva- 
ture of the sector, R^, the angle between the bisector of the pro- 
pellant tip and the straight side sectors, o^, and the perimeter 
length, L^, are assigned for each sector. After the required 

parameters have been set for a sector, the sector burning area 
and volume are determined In subroutine AESUB. 

Subroutine AEP5UB 

Subroutine AEPSUB tests for the existence of a sector and Is 
called from subroutine ASESUB. If a sector has burned out or 
was not present in the Initial grain configuration, control is 
returned to subroutine ASESUB; otherwise, control proceeds! to 
subroutine AESUB. After the sector burning area and volume have 
been determined in subroutine AESUB, the sector values ar$ added 
tp the sum of the values for the previous sector and control is 
returned to subroutine ASESUB. 

Subroutine AESUB 

Subroutine AESUB determines the total burning surface area and 
Initial volume of the' sectors. A test is made at the beginning 
of each zone to determine If the sector exists In that zone. 

The parameters X RQ , R^g, and Y^g are associated with the beginning"' 

coordinates of a sector perimeter, and the parameters X RX , R , 

Y ^x anc ^ L x are associated wTth the end coordinates of a sector 

perimeter as shown in Figure 5.32. These parameters are deter- 
mined by subroutines XRSUB and RASUB from the Pythagorean Theorem. 
The beginning and end points of a sector may not be the beginning 
«jnd end points of the area to be computed should a sector exist 
In more than one zone. The beginning coordinates of an area are 
then subscripted min and the end coordinates are subscripted max 
Instead of 0 and X, respectively. The perimeter length is then 
defined as L R . Figure 5*34 shows an example of the min and max 

coordinates that are used In the following zone A analysis. When 
an , Integration scheme Is employed, zones B, C, and Web, the min 
and max coordinates of each Increment are determined to compute 
sector surface area. 
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5. 2. 3. 2 Calculation Sectors and Zones (Continued) 


Subroutine RCSUB 

Subroutine RCSUB obtains the idius vector from the motor axis 
to the Intersection of the aft burning surface with the case wall, 

R c , Figure 5.33. The Intersection Is determined from the equation 

of a straight line when T < T^, and from the equation for the 

aft-dome configuration (circle or ellipse) when T > T^, where: 

*E1 ■ [< R E2 - *E1> 2 - h El 2)1/2 

Subroutine ARSSUB 

Subroutine ARSSUB determines the chord length, L RS , between the 

minimum point of a sector and a general point along the perimeter 
of a sector as shown In Figure 5.35. The required parameters 

are R A0' X R0' V and X R' 

Subrout I ne ALRSUB 

Subroutine ALRSUB determines the arc length of a sector, L R , from 

the minimum point of a sector to a. general point alone the peri- 
meter as shown In Figure 5-35. The required parameters are L__ 
and R.p. 

Subroutine XRSUB 

Subroutine XRSUB determines the X-coordinate cf a general point 
on the perimeter of a sector. A separate equation Is used for 
each sector. The required parameters are R^ and T. 

Subroutine RASUB 

Subroutine RASUB determines the length of a radius vector from 
the motor axis to a general point on the perimeter of a sector. 

A separate equation Is used for each sector. The perimeter 
length along the sector and the distance burned T are required. 

Subroutine HESUB 

Subroutine HESUB determines the length of the trapezoidal elements, 
h^, used to determine the Incremental volumes and areas, Figure 5*36. 
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5. 2. 3. 2.1 Zone A Calculations 


When R aq < R £1 , the surface area Is computed In Zone A. When R AQ 
> R ., the analysis proceeds to the next zone and R A Is set to 


the smaller value of R^ and R^. 


The following Zone A analysis applies to sectors 1 through 7 and 
9 through 13* Figure 5-35 Is used as an example to define cal- 
culation parameters. It Illustrates sector 3» 

The burning surface area In zone A Is determined from an algebraic 
composition of simple geometric figures such as shown In Figure 
5.35. 

The value of y^, L R , and L RS are determined as follows: 


2 arc cos 


- l « 2 ' 1/2 


■II 


Amax 


y 2 v 1/2 .2 y 2 x 1/2 

“ A Rmax ; ^ Amin *Rmtn ; 


(X D “ X D 
' Rmax Rm 


.n'M 


where R^ = R^ - T for sector 3 


A tq Is the area between the chord L RS and the circular arc L R 

and Is determined by subtracting the area of the Inscribed tri- 
angle from the area of the circular sector, abg: 

r fi \2 T 1/2 


L R “ L RS 


2 ^RS^ 


A^ Is equal In magnitude to A^. Q and Is positive If R^ Is positive, 
negative If R^ Is negative, and zero If R^ Is zero. A RR Is the 
area of the trapezoid, abdf: 


r 2 _ 2 , 1/2 . fR 2 . 2 

L Mmax Kmax J L Amin Rmli 
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5. 2. 3. 2.1 Zone A Calculations (Continued) 


A 0 Is the area bed determined by subtracting the triangular area 
K 

obd from the circular sector obc: 

y - X fR 2 - 

. ''Amax 'R Rmax 1 Amax Rmax J 


where 


arc sli 


Amax 


A on Is the area aef determined by subtracting the trtangular area 
RQ 

oaf from the area of circular sector oae: 

R 2 v . X fR 2 - X 2 1 1/2 

. *AmJn 7 R0 A Rmtn Amin Rmln J 


where 


arc si 


n (Jsaln) 

\ R AmIn / 


The burning area along the side of the propellant tip Is h^(L^) 
and the total sector area A^ Is: 

A ee - 2 NO [L R h E + Att + A ff * A r - A ro ] 

The sector volume Is: 

OV = (A ff + A r - A r0 + A^) h E NO 2 

If the maximum point of the sector, ^ max I s within zone A, then 

control Is returned to subroutine AEPSUB; otherwise, computation 
will proceed to zone B. 


5. 2. 3. 2. 2 Zone B Calculations 


When R aq for a sector Is less than Rg, surface area Is computed In 
zone B. When R^g Is greater than or equal to Rg, computation 
proceeds to Zone C. 

Initially, R. Is set to the smallest value of R. w and R_ from 
' * Amax AX C 

which L_ Is determined by subroutine ARSSUB and ALRSUB. L„ , 
Rmax ' R 1 
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5. 2. 3. 2. 2 


Zone B Calculations (Continued) 


Is determined in the same manner from R. . . The burning surface 

Am i n 

area is then computed In Increments of £i. where <^L = R f (DLRF) 


by Integrating ove** the perimeter length, L_ . DLRF is an 

Rmax 

Input parameter. For each Increment, Is determined from 

L = L^j + and R^.^ Is determined from L = L^, Figure 5.34, 


The X-coordinate, X_, of the centroid, Figure 5*36, Is obtained 

from subroutine XRSUB and the radius vector R. Is obtained from 

subroutine RASUB. The angle y. is: 

R 


7 


R 


arc sin 



The cross-sectional area of the end face Is equal to the product 
of the incremental arc length (\ - X. m[n )' T , and the arc length, 

7^R^, through which the centroid is rotated. 

The surface area along the side of the propellant tips are 
approximated by trapezoidal Increments and is added to the area 
of the end face. The burning surface areas and volumes of each 
Increment are added to the sum of the previous increment values. 
They are determined for an increment as follows: 


EE 


2 NO 


h + h ‘ 

^ L ' L R1 ) 2 + R A 7 R ^ - \, in ) T 


where 

h E = 1 h ER L ' 7 " ( R Amax " R E1^ ' / • 
h E = ^ h ER ‘ ^ ( R Amin " R E1^ * / I 


DV 


2 NO (R. - R. . ) 

Amax Amin 


h E + 4 


7_ R. 
R A 


The next Increment in the sector is determined by setting = L, 

h E = h E / R Amin = R Amax' and L R1 = L R1 + ^ = L ‘ L ,S Set t0 

L_ for the last iteration for a sector. 

Rmax 
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5. 2. 3. 2. 3 


5.2. 3.2.2 Zone B Calculations (Continued) 


The parameters R A , f* ArTiax > L> and h E are determined for each In- 
crement. 


The toroidal end burning area Is formed by revolving an arc about 
the motor axis, and Is equal to the product of the length of the 
arc Increment and the arc length through which the centroid of 
the arc Increment I s' rotated (Theorem of Pappus). The area along 
the side of the propellant tip Is determined from the trapezoids. 


The radial vector, R A , to the centroid of the arc Increment, as 
shown In Figure 5*36, Is: 


2T 




si 


min 




where 


2T 




’ml 


/\ - \ . \ 

— sin ( 2 ^e distance from the centroid 

n ' 


of the arc Increment to the origin of the circle about which the 
arc Increment is revolved. 


The angles \ and \ . are determined as follows: 
min 


arc si 


min 


arc 


n | ^Amax R E1 j 
iln 


If R Is less than R , computation will proceed to the next 
AX w 


sector. If R. Is greater than or equal to RC, computation will 

M A 


proceed to zone C. 
Zone C Calculations 


The burning surface area In Zone C consists only of the surface 
along the side of the propellant tip, and Is determined from 
trapezotdal elements. If a sector exists in zones B and C, 

R a Is set equal to R A of zone B; otherwise, R^ = R AQ . With 


R., L d is determined from subroutines ARSSUB and ALRSUB. The 
A K 1 


length of the Initial edge, h£, of the trapezoidal element Is 
determined In subroutine HESUB as follows: 


K 


SHEET 

102 


U I 40 02 1 4 14 0 ( V . 0.09 


USE FOR TYPEWRITTEN MATERIAL ONLY 



103 

U 3 4«0t 1 4 34 » t V . 5 



USE FOR TYPEWRITTEN MATERIAL ONLY 




NUMBER D2-125cS6-1 R 
REV ITR 


5. 2. 3. 2. 4 Web Zone Calculations (Continued) 


If R_„ > (R, - T + T), calculate the parameter, 
E2 f w 

„ ' "f ‘ ' T> .. 

EFC - R E2 -S e , E 


and the volume as: 


|[(y\ 2 -¥] P E 2 * (h ER - h E0> « f 2 

* K- T w + T > 2+R E2‘ R f- T «* T)+,l E2 2 j T C 


* < h EFC th ER- h El )(R f- T w* T > J* 

If R < (R , - T ), calculate the parameter, 

LZ "™" * W 


K - ( R f - \ + T) ‘ 

Pc 


2 , 1/2 


and the volume as: 


( I 7 R f Z 3 1 2 

0V = |[\P^) Z 1 “ “T P E + ^ h ER “ h E0^ R f 

2 ) 

- (Z 1 + h ER -h E0 )(R f -T w + T) <* 

The additional end burning area and Initial propellent volume, 

when R_. > R, - T + T, are determined as follows: 
tl I w 


When R^ < R^ 


2 NO e, « E1 2 - r A0 2 ) 


* h E * R E1 " R A0 * 


The toroidal end burning surface exists when R £ > R e j. The re- 
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5. 2. 3. 2. 4 Web Zone Calculations (Continued) 


volved area Is a product of the arc length and the c t rcumf erence 
of the circle described by the centroid of the arc length. The 
radial vector to the centroid of the arc Increment, Figure 5.36, 


2T 


- *ln(^*) .in + R E1 


The toroidal surface area Is determined from the product of the 
arc length, (\ - *- m | n ) T > and the circumference of the circle, 

2 NO R^, described by the centroid of the curve: 

V - 2 < x - W T N0 % 0 i 
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5.3 


Moments of Inertia and CG Location 

Pitch and roll moments of Inertia (MO I ) *nd the center of gravity 
(CG ) location during motor burning can be calculated. The roll 
moment (J-ROLL) Is taken about the longitudinal axis of the motor. 
The pitch moment (J-X-Y) Is taken about an axis passing through 
the motor CG and centerline. The center of gravity Is measured 
from the aft tangent plane. The value Is positive when the CG Is 
forward of the aft tangent plane. The moments about the pitch and 
yaw axes are assurrsd to be equal. This assumption Is valid for any 
conf Igir atlon with an even multiple of 4 propellant tips. 

The MO I and CG location of the motor are based on the combined 
values of each section/ fore-head, cylinder, and aft-head. 


The pitch MO 1 of the fore-head Is Initially determined about the 
forward tangent plane and then transferred to the aft tangent plane, 
the cylindrical and aft-head section MOI*s are Initially determined 
about the aft tangent plane. These values about the aft-tangent 
plane are then transferred to the motor CG. The transfer formula 

, + d^/c 


CG 


aft tangent plane 


9 0 


where d Is the distance between the motor CG and aft tangent plane. 


The MO I of a body with respect to a given axis Is defined as the 
product of the mass and the square of the distance from the axis. 
If dm = dW/g 0 represents an elemental mass and Y Its distance from 
an axis, the MO I, J,of the object about this axis will be equal to 

dW/g 0 , Reference 8. 


The CG Is that point at which the mass of an object Is concentrated 
so that the moment of the concentrated mass about any axis or plane 
Is the same as the sum of the moments of all the elements of the 
mass about the same axis or plane. The sum of the moments from 
plane 


,S f *dW 
J 9 0 


and the CG Is defined as: 


f* 


W 


where 


x = distance to the CG location from a plane. 



The MO I and CG location for each section are determined from a 
summation of Incremental volumes and areas about the desired axis. 

The Incremental volumes are hollow circular cylinders for the 
cylindrical section and thin shells for the head-end sections. 

The radius of gyration for the cylindrical section Is determined 
from the roll MOI of the grain cross-sectional area. The Incremental 
rectangular MOI s are first taken about the CG of the Incremental 
volume and then transferred to the desired axis. The transfer 
formula Is I = Iqq + d^m, where |qq Is the MOI about the CG and 
d Is the distance to the reference axis. 
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Roll Moment of Inertia 

The roll MOI of an Incremental thin shell for the head sections 
are determined from the fundamental equation; Figure 5 • 37 : 

Jp . l 

The thin shells are based on a subdivision of sector boundaries. 

The roll MOI of the cross sectional area of an Incremental hollow 
circular cylinder. Figure 5*38, Is determined from the fundamental 
equation: 


(9 rl ♦ 6 ro ) 


— (r 0 4 - r, 4 ) NO, In 4 


where 

Tq = outer Incremental radius. In 

r j * Inner Incremental radius, In 

The radius of gyration Is determined from: 

1/2 

K - (afp 5 - ,n 

2 

where AFP Is the cross sectional area of propellant, In . 

Motor End Sections 

The roll MOI s for the motor end sections are determined In sub- 
routines PT1AA and SD 1 D 1 3 from a summation of thin shells of each 
sector and the web region as follows: 

9 

13 2 2 2 2v p f 

AJPP = ^ [J px ] + (R*, ♦ * A 2 ) (R a * R ao ) * 2 2To 


where, J, 


("a 2 + r ao> w i 


U | - ( 9 rl + 9 ro> N ° °f (R A - *A0> < h E + h E } 


R.^ Is the minimum radius of the Increment 
AO 

R a Is the maximum radius of the Increment 
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5.3. 1.2 


Cylindrical Section 


The roll MOI for the cylindrical section Is determined In subroutine 
SEGSUB using the rad'us of gyration of the propellant cross section. 
The radius of gyration of the cross section Is determined In sib- 
rot. tines PT1AA and SO 10 1 3 from a summation of the roll MOI for the 
elementary hollow circular cylinders of each sector and the web 
region as follows* 


- z t <« A 4 -0 no i + 1 (C^) 


f 


w T -^ l 


1 3 2 2 2 2 

£ [ r ' 2 <« A -*ao> NO 1 + * ( r A 2 - r A q) 


"gy - t wf J 

The radius of gyration Is calculated only at the Input reference 
planes and linearly Interpolated at each Increment dividing plane. 

The cylindrical section total roll MOI Is determined from a summation 
of Individual mass addition region roll MOI values as follows, 

Figure 4. 3* 

N I 

'PCYL ■ f t (* « fH f - A pH j) + (* R f 2 - A p ) 1 41|i 

The subscripted HI parameters are the values at the adjacent upstream 
Increment dividing plane. Nl Is the total number of Increment 
dividing planes. 

Pitch MOI 

The pitch MOI s of the head sections are taken with reference tfr 
the adjacent tangent plane such that: 

i W_ ,rf. . lA . W_ _2 

J B = g 0 2 + 12 + g Q R CG 


radius to CG of cross section. In 

Incremental length of shell. In 

distance from reference axes (tangent plane) 
to the CG, In 
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5.3.2 


5.3.2. 1 


5. 3. 2. 2 


Pitch MO I (Continued) 


For the Incremental hollow circular cylinders of the cylindrical 
section the calculations are taken with reference to the CG of the 
Incremental cylinder and then transferred to the aft tangent plane 
such thati 


W ,K 2 . L 2 s . W_ .2 

•< B ■ r <- + + t 0 ‘ 


where 

2 

K * radius of gyration of cross section, In 
d = distance from the CG to aft tangent plane, In 
Motor End Sections 


The pitch MO I for the motor end sections are determined In sub- 
routines PT1AA and SD1D13 from a summation of MO I s for elemental 
thin shells of each sector and the web region as follows: 

2 


AJBB 


13 f (h,+ 

f M 


,+h_) 


W 


W P 2 

, _J , _PX . W l *CG 

J 12g 0 + 2 g 0 


r cg u i 


9o 


+ [ 


VNi* + (Ra 2 + ^ 3 


w, 


12 




where 


CG 


h E0 + 


(h £ +h E ) 


h E +h E 


for the fore-head and 
for the aft-head 


’PX 


( r a 2 + *ao> 


Cylindrical Section 


The MO I Is determined In subroutine SEGSUB from a summation of 
Individual mass addition region values as follows: 


BCYL 


N I 
I 
1 


(it R fH ,” A PH |) 


t "gWI + 2 U < AINCW - AINCHI) + h C0 - AINCwj 


IS 

y- 
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5*3*2. 2 Cylindrical Section (Continued) 


5.3.3 


5.3.3. 1 


2 (A I NCW-A I NCH I 


(* R # 2 - 


1 + [ KjJ + 2( 


AIMCW-AINCHI 


h C0 ’ AINCW ) ] 


; f 2 -Ap) p f (A I NCW-A INCHI) 

’ J ^ 


CG of Sections 

The CG for each section Is determined from a summation of the 
moments of Incremental volumes about the desired axis. The CG 
f0 r t h * cylindrical section Is determined from e summation of the 
moments of Incremental hollow circular cylinders about the aft 
tangent plane, Figure 5.3% and the CG for the head sections are 
determined from a sunmatlon of the moments of thin shells about the 
adjacent tangent plane. Figure 5.37. Thus: 

MX = ~-X=rX,— 

9o * 9 0 


therefore 


IX ( dW/W 


where 


Xj * moment arm of Incremental volume, In 
dW = Incremental volume weight, lb 
W ■ total weight, lb 
Head Sections 

If*m^LIj. d : t “ rm ! n ' d ln ,«*:»“tln.s PT1AA and SD1D13 from a summation 

region « foUowsr ent ,h,U * ° f “ eh sector and the "« b 


X . - X [ (W_ X 


T I previous 


where W, 


13 

X w, 


W / 

( h E + h g) I r ) J (w, + w T ) J 


subscript | Is n for aft-head. 

H for fore- head. 
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5. 3.3.2 Cylindrical Section CG Location 

The CG lo«*itlon Is determined In subroutine SEGSUB from a summation 
of the Individual mass addition region moments as follows, Figure 

5 . 38 : 


AOMCYL 


I , [ ^(AINCW-AINCHjl + . A)NCW ) (* r 


^ - A ) 
f H I PHI 7 


+ ( MNCW-AINCHI. + ^ . A|NCW ) („ Rf 2 . Ap ) ] . (AIWCW-AINCHJ . 


5 . 3.4 


Motor MO I and CG 
Motor Roll MO 1 1 


J PP = J PHed + J PNoz + Pcyl 

The motor CG location and pitch MO I are determined by a transfer 
of axes of the MOI of each section as tollows. 


Motor CG: 


(X H ♦ h c0 ) V fH p f + aomcyl - X N V fN p f 


Fore-Head Section Pttch MOI: 

J BHed " (J BHed 5 Aft ' 1 X H ' + h C 0 ' X tH ) J 1 


Aft-Head Section Pitch MO I r 


W 'WAft - [ X N * <*N**.H> 1 ^ 

Cylindrical Section Pitch MOI: 

'Beyl = ^Bcy^Aft "' ( [ X IH W f “ ^H + W V fH p f 

+ *N V fN P f V [ W < : “ * VfN ^ Pf 1 ) 

[ w f - (v fH + v fN ) P f ] /g 0 

Motor PI tch MO I : 

J BB = J BHed + J BNoz + ! Bcyl 
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NUMBERS IN ( ) ARE SECTOR NUMBERS 



Figure 5.3 Part of Calculated Constants for One-Half Fork of General 
Modified Wagon Wheel Configuration Produced by PLNCNS Sub- 
routine 

D2-125286-1. 




Sector 7 



Figure 5.5 Sector Definition 
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Slotted-Cone Addition to Standard Star Showing Location 
of Fixed Geometry Points 
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Figure 5.10 Slotted-Cone Burning Surface Addition For r Cheater 

T 6cmx less thaa T 71nax 
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Figure 5.12 Slotted-Cone Burning Surface For r Greater than T’y^, with 

T' Less than T'^ 

V7 V6 
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Figure 5.13 Slotted- Cone Burning Surface For r Greater 
than T ' v6 with T' y g Lees than 
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Outer Ellipsoid 



Figure 5.14 Head-End vith Web, Motor Pore-Head 
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Figure 5.19 7j f° r Subroutine GAMSUB 
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Surface Area In Radial Burning Section 



Figure 5.29 Distribution of Volune in Radial Burning Section 
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Figure 5.30 Motor Case Longitudinal Constants 



Figure 5.31 Straight Through Grain Configuration 
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6.0 DETAILED PROGRAMMING INFORMATION 

Information required to maintain and revise the program is 
presented in this section. A brief description of all program 
subroutines, macroscopic program logic flow charts, common 
block allocation, and a list of the program nomenclature 
are included. 

As stated in Section 3.0 on the method of solution, the primary 
purpose of this computer program is to obtain the performance 
character ist ics of solid propellant rocket motors, which requires 
the solution of the internal ballistics. In order to obtain 
the performance character! sties, the computer solution is 
separated into two major sections. One section obtains the 
propellant burning surface area and volume (geometry calculations), 
and the other section obtains the solution of the gas dynamic equa- 
tions (internal ballistic solution). The computer solution of the 
geometry equations requires three separate control routines and the j 
computer solution of the gas dynamic equations requires a fourth 
control routine. Each control routine calls the required sub- 
routines and computes values of control parameters. The Individual ! 
control routines are linked through subroutines LINKI and LINK2 
by a control variable named ICHN. The first control routine Is 
MNCHNI , the second control routine is MNCHN2, the third control 
routine is MNCHN3, and the fourth control routine is MNCHN4. 

The first control routine (ICHN = I) contains the subroutines 
required to read the Input data, Initialize the data cells, 
compute the input reference plane constants, locate the incre- 
ment dividing planes, check for input data errors, and print 
the program computed constants. The second control routine 
(ICHN * 2) contains the geometry subroutines required to 
compute the initial propellant area, perimeter length, and 
to compute the initial propellant volume, burn area, center 
of gravity location, and moments of inertia for the aft-head 
and straight through grain fore-head section. The third control 
routine (ICHN = 3) contains the geometry subroutines required 
to compute the initial propellant volume, burn area, center of 
gravity, and moments of inertia for the fore-head with web. 

The fourth control routine (ICHN = 4) contains the subroutines 
required to obtain the internal ballistics solution. 
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Subroutine Descriptions (Continued) 


Subroutine ARSSUB determines the chord length between 
the minimum point of a sector and a general point 
along the perimeter of the sector (Section 5. 2. 3*2). 

Subroutine ASESUB sets up the correct equations for 
subroutines XRSUB and RASUB and assigns for each 
sector the proper values for the coordinates of the 
origin of the circular arc (RAO, XAO), the radius of 
curvature of the sector (RT), and the perimeter length 
(AL) of the sector (Section 5.2. 3<2). 

Function ASIN determines the arc sine In radians 
for the argument angle X. 


ASTSUB - Subroutine ASTSUB sets up the correct equations for 
subroutine PT1AA to determine the moments of 
Inertia for the block 1 analysis of the head end 
with web (AJSTP and AJSTB). 

ASUBC - Subroutine ASUBC sets up the correct variables and 

equations to determine the coordinates (X, Y, and Z) 
of the points POA, P1A, and P3A for the block 1 
analysis in subroutine SCI (Section 5.2. 1.1). 

AWESUB - Subroutine AWESUB determines the total burning sur- 
face area of the web zone at thickness TAU and the 
burning surface area of sector 8 for the end sections 
(Section 5. 2. 3. 2. 4). 

BRAKSB - Subroutine BRAKSB determines the length of the dia- 
gonal of the parallelogram that is formed by the 
Intersection of two planes in the block 1 analysis 
(See Figure 5.23) • 

BSUBC - Subroutine BSUSC sets up the correct variables and 
equations to determine the coordinates (X, Y, and Z) 
of the points POB, P1B, and P3B on the pseudoellipsoid 
for the block 1 analysis in subroutine SCI (Section 
5 . 2 . 1 . 1 . 1 ). 

CONV - Subroutine CONV determines new iterations value for 
either AKRST or PCTAB during the start transient 
calculations for the Internal ballistic solution. 
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Subroutine Descriptions (Continued) 


DPRASB - Subroutine DPRASB determines the distance between 
the points P ra and P« a ; P $a and P^; P pb and P; b ; 

and P sb and P^ b that lie on the planes produced In 

sectors 3A and 3B or UA and 1 1 B in the block 1 
analysis of subroutine SCI (Section 5*2. 1.1. 2). 

ENDCSB - Subroutine ENDCSB determines the coefficients of 

a fourth degree polynomial equation obtained by the 
intersection of an ellipse and a circle, CAE, CBE, 
CCCE, CCVE, CDCE, COVE, CECE, and CEVE and deter- 
mines the constants RE1, RE2, ALFE, AIFEM, HE1, 

HE2, and HEO that define the geometry of the fore- 
head and aft-head sections (Section 5*2. 3.1). 

FDGRE - Subroutine FDGRE solves for the roots of a fourth 
degree polynomial equation by reducing to the form 

X 1 * + A X 2 + BX + C = 0 

by the substitution 

Y = (X - P/R) 

and then solving the resultant cubic 


GAMA2S - Subroutine GAMA2S determines the angle between the 
Y-axis and a line normal to the ellipse 

Y 2 2 

^BOE^ + ^AOE^ = 1 

(which is defined by the ellipse ratio P Qf .) at the 
point V = RAT (Section 5-2. 1.1.1). c 

GAMSUB - Subroutine GAMSUB determines the angle y^ between a 

line normal to the perimeter In the X-Z plane, and 
a line normal to the line segment RAT which is a 
radial vector from the motor axis to a point on a 
sector perimeter (Section 5.2. 1.1.1). 
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6 . 1.1 


Subroutine De: 


nns (Continued) 


HAPSBC - 


Su!. ■ 

det 

PO: 

for 

foi 

5.: 


2 HAPSBC sets up 
the coordinates 


the correct equations to 
(XOP, YOP, ZOP) of the 


»*, P1A‘, and P3A* on the pseudoellipsoid 
iock 1 analysis of the intersecting planes 
rs 3 and 11 in subroutine SCI (Section 

). 


HASUBC - Sur.- 2 HASUBC sets up the correct variables to 

de*. 1 the coordinates (XO, YO, ZO) of the points 
POA , . , and P3A that lie on the pseudoellipsoid 

pr-.' in the block 1 analysis of the intersecting 

pk * sectors 3 and 11 in subroutine SCI (Section 

5.;. .:). 

HBPSBC - Su'. -e HBPSBC sets up the correct equations and 

vf r ; to determine the coordinates (XOP, YOP, 

ZO, .he points POB ' , P1B', and P3B 1 that lie 

on • :eudoel 1 1 psoi d produced In the block 1 

ar.. of the intersecting planes for sectors 3 

an. ' !n subroutine SCI (Section 5. 2. 1.1. 2). 

0 * 

HONSUB - Sc ~e HONSUB sets up the correct variables to 

per- the block 1, 2A, 2B, and 3 analysis of the 

he: with web (Section 5*2. 1). 


HESUB 


IBM 


Sc !ne HESUB determines the length of the zones 
In .id sections from which the incremental sur- 

fet ^s In subroutine AESUB are determined (Sec- 
tic. -.3.2) . 

Subroutine IBM initializes many of the program 
constants, variables, and indicators for the 
first pass through the program. IBM also calls 
UNKI and LINK2 which access the four main control 
routi nes. 


IBMOUT - Subroutine IBM0UT controls the program output after 
completion of each ballistic solution iteration. 

INPT - Subroutine INPT controls the internal ballistics 
data input through Namelist IBDATA. 

LBSUB - Su ‘ne LBSUB determines the length (b) of the Y 

In: t produced by the intersection of the line 

Y •• * id the line normal to the ellipse at PO 

(S n 5. 2. 1.2). 
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Subroutine Descriptions (Continued) 


UNK2 


LOOKUP 


LPDAPS - 


Subroutine LINKI controls access to the three con- 
trol routines, MNCHNI, MNCHN2 , and MNCHN3 , which 
generate the program geometry data. 

Subroutine LINK2 controls access to subroutine 
MNCHN4 which obtains the internal ballistics 
solution. 

Subroutine LOOKUP performs the table lookups for 
the reference plane perimeter and radius of gyration 
and the end section burn areas, centers of gravity, 
and moments of inertia at the beginning of each time 
point solution in subroutine MNCHN4. 

S.- ine LPDAPS sets up the correct variables to 
dc‘. ie the perimeter length, ALP, and the cross- 

s--" nl fuel area, ArP, of the propellant tips in 

s : ine AFPSUB for the cylindrical section re- 
f •: . planes (Section 5*1*1) • 

S. tine LPTO determines the perimeter length AL7 

ar. ~ cf the anisotropic propellant in sectors 7 

a- curing the motor tail-off interval (Section 


MNCHN I - 


MNCHN2 - 


MNCHN3 - 


MNCHN4 - 


Subroutine MNCHNI is the control routine which 
computes the constants that define the geometry 
of the grain cross-section and longitudinal con- 
figuration for use by the second and third core 
loads, checks for data errors, and prints geometry 
constants. 

Subroutine MNCHN2 is the control routine which 
determines the initial fuel area (AFF) and port 
area (AP) for the cylindrical section reference 
planes and determines the burn area and initial 
fuel volume of the straight through grain fore-head 
and aft-head sections as a function of distance 
burned . 

Subroutine MNCHN3 is the control routine which 
determines the initial fuel volume and burn area as 
a function of time for the head end with web. 

Subroutine MNCHN4 is the control routine which 
obtains the internal ballistic solution (Section 
5.2.2). 
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Subroutine Descriptions (Continued) 


MODTSB - Subroutine MODTSB modifies the value of TIME and 

the value of the nozzle throat diameter after con- 
vergence of the ballistic solution iteration and 
initializes X and Y reference planes for interpola- 
tion of the increment dividing planes In subroutine 
TISUB. 

MS I SUB - Subroutine MSISUB determines the location of the 
center of gravity and the polar and rectangular 
moment of inertia for the block 2A analysis of the 
head-end with web. 

MTISUB - Subroutine MTISUB determines the location of the 
center of gravity and the polar and rectangular 
moment of inertia for the block 2B analysis of the 
head end wi th web. 


PLNCNS - 


PLNLCS - 


POSUB 


PT1AA 


P1SU8 


P3SUB 


RASUB 


Subroutine PLNCNS calculates the geometry constants 
of each cylindrical section reference plane (Section 

pi i \ ' ' 


Subroutine PLNLCS checks for reference plane input data 
errors, prints appropriate diagnostic comments, and 
flags the program for case termination if an error exists. 

Subroutine POSUB determines the coordinates (XO, YO, 

ZO) of the point PO that Is located on the inter- 
section of the inner ellipsoid with the core (Section 
5. 2. 1.1.1). 

Subroutine PT1AA determines the polar and rectangular 
moment of inertia for the cylindrical section, straight 
through grain end sections, and the block 1 analysis 
of the head end with web (Section 5.3). 

Subroutine P1SUB determines the coordinates (XI, Yl, 
and Zl) of the point PI that Is located on the Z axis 
along a line through point PO and normal to the sector 
perimeter (Section 5. 2. 1.1.1). 

Subroutine P3SUB determines the coordinates (X3, Y3, 
and Z3) of the point P3 that is located in the Y-Z 
plane and on the outer ellipse (Section 5. 2. 1.1.1). 

Subroutine RASUB determines the length of a radius 
vector from the motor axis to a point on the peri- 
meter for each sector in the end sections with a 
straight through web (Section 5. 2. 3. 2). 
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RASUBB - 

RBSTSB - 

RBSUB 
RBVSUB - 

RCSUB 

RG I SUB - 
R0E1SB - 

ROPSB 
SCI 

SCT0R1 - 

V I 


Descriptions (Continued) 


Subroutine RASUBB determines the length of a radius 
vector from the motor axis to a general point in- a 
sector for the block 1 analysis of the head end with 
web (Section 5. 2. 1.1.1). 

Subroutine RBSTSB determines the initial estimate of 
the burn rate coefficient, AKRST, for each time in- 
crement during the start transient interval and 
performs the table look-ups for PH and AKRST (Section 

4.3.3). 

Subroutine RBSUB determines the propellant burning 
rate at each inc r enent dividing plane (Section 4.3.2). 

Subroutine RBVSUB checks the validity of the burning 
rate equation constants and prints appropriate diag- 
nostic comments. 

Subroutine RCSUB determines the value of the radial 
distance from the motor axis to the Intersection of 
the aft-end burning surface and the motor case for 
any configuration (Section 5*2. 3*2). 

Subroutine RGISUB determines the radius of gyration 
for the Incremental thin shells of the head end with 
web. 

Subroutine R0E1SB determines the radius of curvature, 
Pj, at the point P L on the pseudoellipsoid for the 

block 2A analysts in subroutine SCI (Section 5*2. 1.2). 

Subroutine ROPSB sums the values of the Y coordinates 
PO (YOA and YOB) or PO ' (YOA' and YOB') for the. A 
and B planes from which the block 1 surface area is 
obtained in subroutine SCI (Section 5*2. 1.1.1). 

Subroutine SCI is the control routine to determine 
the surface area and initial volume of the propel- 
lant tip for the block 1 analysis of the head end 
with web (Section 5.2. 1.1). 

Subroutine SCT0R1 is the control routine to determine 
the surface of the pseudoellipsoid for the block 2A 
analysis of the head end with web (Section 5*2. 1.2). 
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Subrout i ne 

Descriptions (Continued) 


SCT0R2 - 

Suoroutlne SCT0R2 is the control routine to deter- 
mine the surface area on the pseudoellipsoid of the 
projected propellant core in the block 2B analysis 
of the head-end with web (Section 5. 2. 1.3). 


SO 1 D 1 3 - 

Subroutine SO 1 0 1 3 determines the center of gravity 
and moments of inertia of the straight through grain 
end sections (Section 5.3). 

• 

SEGSUB - 

Subroutine SEGSUB is the cylindrical section control 
routine to determine the mass generation rate, port 
area, perimeter length, and cross-sectional fuel 
area for each increment dividing plane and mass addi- 
tion region during the internal ballistic solution 
(Section 5.2.2). 


SETPH 

Subroutine 1"TPH is the Internal ballistic solution 
control ro'. 'ne to obtain convergence on the fore 
head pressu. ? by mctching the grain discharge flow 
with the nozzle flow determined from the nozzle 
pressure. The performance calculations for thrust, 
total Impulse, thrust coefficient, etc., are inclu- 
ded in subroutine SETPH (Section 4.2). 


SLOT 

Subroutine SLOT determines the gas properties at 
the discharge section of a slot between grain seg- 
ments for the non-steady flew solution of the In- 
ternal ballistics (Section 4. 1.2. 2). 


SORT 

Subroutine SQRT Is a modification of the IBSYS-13 
monitor librzry routine to determine the square 
root of negative numbers. Only the positive value 
of the argument is transferred to the designated 
reg I ster . 


S2SK 

Subroutine S2SK determines the sector surface area 
on the pseudoellipsoid of the projected grain cross- 
section for the block 2B analysis in subroutine 
SCT0R2 of the head end with web (Section 5. 2. 1.3). 


TDGRE 

Subroutine TDGRE determines the largest real root 
of a third degree polynomial for the argument X. 
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Subroutine Descriptions (Continued 


THETAP. 


T' S ib 


TP. AM 


VFPPSB 


VOL SUB 


VS EC 


V SIR SB 


XL I N 


Subroutine THETAR determines the angle between, the 
Z-axIs and the line r^n-ert F 'T for the block 1 
analysis in subrout!... . . ' the head end with web 
(Section 5* 2. 1 . 1 . 1) . 

Subroutine TISUE dctc" : * r the value of DELT for 
the steady state inter- i . ilistic solution neg- 
lecting transient e*' c -ct> -md modifies the values 
of thickness burner !■ h increment dividing 
plane after the tail •*. solution is converged for 
each time point. 

Subroutine TRAM trans*'.* * 5 geometry constants 
from the permanent co~ ■ storage location to the 
working array common tora-’e location. 

Sub-outire VFP°SB d®termir ■? the port volume of each 
cylindrical section sec.-er md sums the segment 
port volumes to obtain the total cylindrical section 
port volume. 

Subroutine VOLS'JB Is the control routine which de- 
termines the ini till volume for the block 3 analysis 
of the head-end with web (Section 5»2.1.4). 

Subroutine VSEC determines the volume produced by 
the difference of volume" ~f two oblate spheroids,, 
minus the volume of th igniter hole in the block 3 
analysis of the head end with web (Section 5.2. 1.4). 

Subroutine VSTRSB deter-i-es the initial core volume 
that is present in the head erd with web for the 
block 3 analysis (Section 5.2. 1.4). 

Subroutine XLIN Is hhe irfernal ballistics program 
linear interpolation routine. 


XRSUB - Subroutine XRSUB determines the X-coordinate of a 
general point on the perimeter of a sector in the 
end sections (Section S---3.2) . 

XRSUBB - Subroutine XRSUBB determines the X-coordinate of the 
RAT line segment which is a radial vector from the 
motor axis to a point on a sector perimeter for the 
analysis of the head end with web (Section 5. 2. 1.1.1). 
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Subroutine Descriptions (Continued) 

XRTHR - Subroutine XRTHR Is a set up subroutine that uses 
subroutine XRSUBB to obtain the X-coordinate of a 
point located on the perimeter of a sector in the 
block 2B analysts of the head end with web. The 

anqle 0 . between the Z axis and a line from the 
3 r l 

motor axis to a general point in a sector Is also 
determined (Section 5*2. 1.3)* 


YPSUB - Subroutine YPSUB determines the Y-coordinate of the 
points PO and P3 which are located on the surface 
of the Inner and outer ellipsoids resoectively for 
the block 2 analysis of the head end with web (Sec- 
tion 5. 2. 1.2). 

ZERODV - Function ZERCDV establisnes a zero value for the 
quotient of a division term which has i zero 
denominator. 

ZISUB - Subroutine Z I SUB determines the Z-coordinate pro- 
duced by the intersection of the outer ellipse and 
the line normal to the ellipse at PI (Section 
5 . 2 . 1 . 2 ). 
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6.1.2 Subrout'ne Linkage Tat e 


NAME 

LOWER-LEVEL CALLS 


CALLED BY 


AC0S 

SORT 

AESUB 

GAMA2S 

RASUBB 



AFPSUB 

LPT0 

SO 1 0 1 3 



AIGSUB 

PLNCNS 

THETAR 



ALRSUB 

PI SUB 

XRTHR 



AWE SUB 

P3SUB 

YPSU6 



ENDCSB 

RASUB 

ASIN 



FDGRE 


NSCE 


AEPS06 

AESUB 

ASESUB 

AESUB 

AC0S 

ALRSUB 

ARSSUB 

HESUB 

RASUB 

SORT 

XRSUB 

AEPSUB 

AFPSUB 

AC0S 

SORT 

ASIN 

ZER0DV 

LPDAPS 

AISST 

AIBSUB 

AIBSUB 


SORT 
XL IN 
ZER0DV 

MNCHN4 

AIBSUB 

AIBST 

AIBST 


SORT 

MNCHN4 

SEG3UB 

AIGSUB 

AC0S 

SCT0R1 


SORT 


ALRSUB 

AC0S 

AESUB 


SORT 


ARSSUB 

SQRT 

AESUB 

ASc SUB 

AEPSUB 

AWESUB 

ENDCSB 


RCSUB 

MNCHN2 

ASIN 

AC0S 

PLNCNS 

AFPSUB 
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NAME 

LOWER LEVEL CALLS 


• 

ASTSUB 

PTIAA 

ENOCSB 


MNCHN3 


AS'JBC 

GAMA2S 

GAMSUB 

P0SUB 

P1SUB 

P3SUB 

RASUBB 

THETAR 

TRAN 

XRSUBB 

SCI 


AWESUB 

AC0S 

HESUB 

SQRT 


ASESUB 


BRAKSB 

SQRT 


SCI 


3SUBC 

GAMA2S 

GAMSUB 

P0SUB 

PI SUB 

P3SUB 

RASUBB 

THETAR 

TRAN 

XRSUBB 

SCI 


C0NV 



SETPH 


DPRASB 

SQRT 


SCI 

i 

ENLCSB 

AC0S 

ASESUB 

LPDAPS 

SQRT 


MNCHN1 

ASTSUB 


REV LTR 
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6 . 1.2 


Subroutine Linkage Table (Continued) 


NAME 

LOWER-LEVEL CALLS 

CALLED BY 

• 1 

FDGRE 

AC0S 

RCSUB 



:<iRT 



GAMA2S 

AC0S 

ASUBC 



SQRT 

BSUBC 



HAPSBC 

HASUBC 

HBPSBC 


GAMSUB 



ASUBC 

BSUBC 

HABSBC 

HASUBC 

HBPSBC 

HBSUBC 

HAPSBC 

GAMA2S 

GAMSUB 

P0SUB 

P 1 SUB 

P3SUB 

RASUBB 

THETAR 

TRAN 

XRSUBB 

SCI 

HASUBC 

GAMA2S 

GAMSUB 

P0SUB 

PI SUB 

P3SUB 

RASUBB 

THETAR 

TRAN 

XRSUBB 

SCI 

HBPSBC 

GAMA2S 

GAMSUB 

P0SUB 

P1SUB 

P3SUB 

RASUBB 

THETAR 

TRAN 

XRSUBB 

SCI 

HBSUBC 

GAMA2S 

GAMSUB 

P0SUB 

P 1 SUB 

P3SUB 

RASUBB 

THETAR 

TRAN 

XRSUBB 

SCI 

1 
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6.1.2 

Subrout i ne 

Linkage Table (Continued) 


NAHE 

LOWER-LEVEL CALLS 

CALLED BY 

i 

HDNSUB 

SCI 

SCT0R1 

SCT0R2 

V0LSUB 

MNCHN3 

i 


HESUB 

SORT 

AESUB 
AWESUB 
PT1AA 
SO 1013 


IBM 

LINKI 

LINK2 



IBM0UT 

FAMCAL 

0UTPUT 

M0DTSB 

MNCHN 4 


INPT 

DATL0C 

SQRT 

LINKI 


LBSUB 

• 

SCT0R1 

S2SK 


LINKI 

1 MPUT MNCHN 1 
PCHWRT MNCHN2 
INTREC MNCHN 3 

1 BM 


LINK2 

NSCE 

MNCHN4 

IBM 


L00KUP 


MNCHN4 


LPDAPS 

AFPSUB 

PT1AA 

ENDCSB 

MNCHN2 


LPT0 

AC0S 

SQRT 

TRAN 

SEGSUB 


MACH 


NSCE 

SUBS0N 


MNCHN1 

ENDCSB RBVSUS 

PLNCNS 

PLNLCS 

LINKI 




USE FOR TYPEWRITTEN MATERIAL ONLY 


/ 


6.1.2 

Subrout 

'ne Linkage Table (Continued) 


NAME 

M»1CHN2 

LOWER-LEVEL CALLS 

ASESUB 
L PDA PS 
PT 1 AA 
PC SUB 
TRAN 

CALLED BY 

• 

MNCHN’ 

ASTSUB 
HDNSU8 
PC SUB 
RG 1 SUB 
SCR' 
TRAM 

;.:nki 


MNCHN4 

A IBS 1- SETPH 

AIBSU3 SQRT 
PBST3B XL IN 

link: 



RESUB L00KUP 

SEGSUB 7ER0DV 
1 BM0UT NSCE 
LESSO 
VAR 1 



M0DTSB 

TISUB 

XL IN 

i 3MCUT 


MSI SUB 

SQRT 

SCT0R1 


Mil SUB 

SQRT 

S2SK 

• 

NSCE 

AC0S SUBSON 
MACH XL IN 
RBSUB SORT 

MNCHN4 

LINK2 


PC l >/RT 


LINKI 

• 

P INC NS 

AC0S 

SQRT 

ASIN 

MNCHN 1 
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6 . 1.2 


c j‘. routine Linkage Table (Continued) 







NAME 

LOWER-LEVEL CALLS 

CALLED BY 

PLNLCS 


MNCHN1 

P0SU3 

SQRT 

ASUBC 

BSUBC 

tIAPSBC 



HASUBC 

HBPSBC 

HBSUBC 

5CT0R1 

PT1A.A 

HESUB 

ASTSUB 


SD ID 13 

LPDAPS 


SQRT 

MNCHN2 


ZER0DV 

RG 1 SUB 

f 1 SUB 

ACCS 

ASUBC 


SQRT 

BSUBC 

HAPSBC 

HASUBC 

HBPSBC 

HBSUBC 

P33U6 

AC03 

ASUBC 


SQRT 

BSIBC 


TDGRE 

HAPSBC 

HASUBC 

HBPSBC 

HBSUBC 

RASUB 

AC0S 

AESUB 


SQRT 

SD ID 13 

RASUB6 

AC0S 

ASUBC 


SQRT 

BSUBC 

HAPSBC 

HASUBC 

HBPSBC 

HBSUBC 

SCT0R1 

RBSTSB 

XL IN 

RBSUB 


GETDAT 

BIAS 

MNCHN4 
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6.1.2 Subroutine Linkage Tabic (Continued) 

name lower-level calls called by 


RBSUB 

RBSTSB 

XL IN 

MNCHNU 

SEGSUB 

SL0T 

NSCE 

RBVSUB 


MNCHN1 

RCSUB 

FDGRE 

TDGRE 

ZER0DV 

ASESUB 

MNCHN2 

MNCHN3 

RG ! SLB 

PT1AA 

SQRT 

MNCHN3 

R0E1SB 


SCT0R1 

S2SK 

R0PSB 


SCI 


SCI 

ASUBC 

HBSUBC 

HDNSU6 


BRAKSB 

R0PSB 



8SUBC 

SQRT 



DPRA3B 

TRAN 



HAPSBC 

VSTRSB 



HASUBC 

HBPSBC 

ZER0OV 



SCT0R1 

AIGSUB 

R0E1SB 

HDNSUB 


LBSUB 

SQP.T 



MS 1 SUB 

YPSUB 



P0SUB 

Z 1 SUB 



RASUBB 



SCT0R2 

S2SK 


HDNSU8 


L 
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6 . 1.2 


Subroutine Linkage Table (Continued) 


NAHt LOWER-LEVEL CALLS 

SQ 1 D ! 3 AC0S PT1AA 

HESUB 
RASUB 
SQRT 
XRSUB 
ZER0D7 

SEGSUB A I B SUB MNCHN4 

LPT0 
RBSL'B 
SL0T 
SQRT 
XL I N 

SETPH C0NV MNCHN4 

SQRT 
VFPPSB 


CALLED BY 


RBSUB 

SORT 

ZER0DV 


SEGSUB 


AC0S 

LPT0 

SDIDI3 

AESUB 

MNCHN3 

SEGSUB 

AFPSUB 

MNCHN4 

SETPH 

AIBST 

MSI SUB 

SL0T 

AIBSUB 

MT 1 SUB 

SUBS0N 

AIGSUB 

NSCE 

S2SK 

ALRSUB 

PLNCNS 

TDGRE 

ARSSUB 

P0SUB 

THETAR 

AWESUB 

PT 1 AA 

V0LSUB 

BRAKSB 

PI SUB 

VSEC 

DPRASB 

P3SUB 

VSTRSB 

ENDCSB 

RASUB 

XRSUB 

FDGRE 

RASUBB 

Sf-SUBB 

GAMA2S 

RG 1 SUB 

SRTHR 

HESUB 

INPUT 

SCI 

SCT0R 1 

YPSUB 


&/7JF /A//7 


no. D2- 125286-1 R 
sh. 168 


PEV 1TR 


USE FOR TYPEWRITTEN MATERIAL ONL 


^ 


6.1.2 

Subrout i 

■2 Linkage Table 

(Cont i nued) 




NAME 

LOWER-LEVEL 

CALLS 

CALLED BY 



SUBS0N 

MACH 

NSCE 

- 

• 



SORT 





S2SK 

LBSUB 

MT 1 SUB 

R0E1SB 

SQRT 

XRTHR 

YPSUB 

Z 1 SUB 

SCTCR2 




TDGRE 

SORT 

P3SUB 
RCSUB 
Z 1 SUB 




THETAR 

AC0S 

% ASUBC 

• 


• 


SORT 

BSUBC 

HAPSBC 

HASUBC 

HBPSBC 

HBSUBC 




TISUB 


M0DTSB 




TRAN 


ASUBC 

LPT0 





BSUBC 

MNCKN2 





HAPSBC 

MNCHN3 


i 



HASUBC 

HBPSBC 

HBSUBC 

SCI 


1 

! 

VFPPS6 


SETPH 




V0LSUB 

SORT 

HDNSUB 



\ 


VSEC 




1 

i 

1 

i 

VStC 

SORT 

XRTHR 

YPSUB 

V0LSUB 
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(5.1.2 

Subro- 

f.e Linkage Table (Continued) 


NA^E 

LOWER-LEVEL CALLS 

CALLED BY 


VSTRSB 

SQRT 

SCI 


XL 1 N 


AIBST 

MNCHN4 

MOD7S9 

NSCE 

RBSTSB 

•R3SUB 

SEG3UB 


XRSUB 

SQRT 

AESUB 

SD1D13 


XRSUBJ 

SORT 

ASUBC 

BSUBC 

HAPSEC 

HASUBC 

HBPSBC 

HBSUBC 

XRTHR 

• 

% 

XRTHR 

AC0S 

SORT 

XRSUBB 

S2SK 

VSEC 


Y P SUB 

AC0S 

SORT 

SCT0R1 

S2SK 

VSEC 


ZER0DV 


AFPSUB 

AIBST 

PTIAA 

RCSUB 

SCI 

SDIDI3 

SL0T 

1 

21 SUB 

TDGRE 

SCT0R1 

S2SK 


ea 


D 
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6.2 


Flow Charts 


This section contains macro-scoplc flow charts In schematic form 
of the f-irst, second and third level subroutines. The Fortran 
listings themselves are considered to be the flow charts for the 
lower level subroutines. 

These routines are 

annotated by comment cards which define the computational blocks 
and locate important logic branches. 

The following schematic flow charts are included: 


MAIN Program 

Subroutine MNCHN1 
Subroutine MNCHN2 

Compute Plane Constants 
Subroutine AESUB 
Subroutine MNCHN3 
Subroutine SCI 
Subroutine SCTORI 
Subroutine 32SK 
Subroutine MNCHN4 
Subroutine SEGSUB 
Subroutine SETPH 
Subroutine TISU3 


Flow Chart No. 


no D2- 125 236-1 
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’ 


_Q_ 


C«l4« M4 j». turn C. stance for Sector by] 
Calc. at .1 Increments Along a.rlmeter 



9 

I C.lc. T.t.l P.rlmse.r Lcnpth 


< CAIL NASUtcX C«lc. points P A , 

cau wisuec / P |-VV ,,r 


|c.lc. Olsc.nc. Between Points on. 
Aejust Int.9r.eln9 rector (a. ) 



up.se. 
t l.n.s 


/ CALL HAPSOcX 
\ CALL HBPSBC / 


^ BPAASO y 


pl.n.s A pn. | 

Seer. coor. . of 
Points 


C.le. points for 
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Between pl.n.s 


Aeju.t Int.9r.tln9 Factor I 


( *rn*N 


© 


' CALL MAPSBC \ C.lc. eorr.ces. 
v CALL HBPSBC / points for .tenet 

_/ A* .n. »• 


$.t Ine.yrstlng fsetor 

I 


CALL AOPSB 


or., points 


"» .. .10) Except Aros C.lc. 

Uso 0 I Af .rone ee st Ions 


C.lc. points P 

*• / 

PUni AXn. , \ MLL H,5U « 


°" / CALL MASUBC X 


^ A. turn 





CotouC. 

•urn Aree 



Flow Chart HI 
Subroutine SCI 
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Calculate Coordinate* of 
Point* A and 8 for Sector* 
JA, H • nd ,lA 


(Remaining Vol*"*» a™ 
Calc. In Subroutine SCI) 


Calculate Coordinate* of the 
Incremental Strip to be U»ed 
In Integrating for Area 

Calculate Aedlu* of Curvature 
of the Incremental are. 
Calculate Y-Aal* lntere.pt* 
of Una* No mo l to the CiHp»e 
Calculate Z Coordinate* of ^ 
Home 1 Line on Outer £lllp«e. 


Calc. Surface Area of the 
Ignitor Hole. 




Flow Chart #8 
Subroutine SCT0R1 
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Calculate Coordinate! of 
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of Currant Sac tor 


Calculate Coordinator of 
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Flow Chart #9 
Subroutine S2SK 
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C0MM0N Allocation (Continued) 
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1 Mb) (lb) t MOA (18) .POT (lb) « IbA ( id) * TbF ( 18) . UA ( 18) . 

l OT (Id) .bSLUTU(ld) .bbLOTl (18) 

CUwMUN/CUMr /U^SL lA(ltt) tU# bL (Ab) tlM*OT$ ( 18) * AF M 1 1 HBSL T A ( 1 b ) t 

1 KdbLlF (18) 1 1 SLOT A ( 18) . TbLOIT (18) 

COMMON/COML/ThO T 

COMMON/COMM/ T AO lOZ .MbLVHN . A A (<*b) * AY ( Ab) .A INCA . ANOA .HF A . T AON A • 

1 UOMA ( 1 M .A1NCY.AN0V.HT Y.TAObV.OUMY (17) .VFPP 

COMMON/COMN/TbLVMA. IbLVMY 

COMMON/COMO/THbLV. I bL VOM , 1 HbL V V . AbL VH . AMO . WF H l , ALP A . AM A , 

1 KdMl .ALPY.APY.VbLVM 

COMMON/ COMP/Ot LL »H I *ALAMlN*Abt*HAMlN«ALA» ALAMOA 
COMMON/C OMO/ UtLLO . UtLLO 1 
COMMON/CuMH/Ufc.LLH .HPZ » APZ *MZ 
COMMON/COMb/TPH,AI\MAUJ.ltNO 

COMMON/COMT/1 AO.HC.bOMUV . AK,Mt .AC (13) . Ab AM I M . ASfc . AFF . b I « b I ««A. 

1 MAO. ALL. AJPP.AS1 

Common /C omo/ vw a • al 1 1 o • CoonI , vFHtb l . vtA. vh , A bTO. abIGH 
Common/ com v/ vb l h » vb fo * f oma a < u o 1 a *uo l b .amaa.Zmaa.ymaa.alhO. 

1 KOPtl .HoPt2.MUPtJ. ALOP 

Common /comw/OV .A tt.PtPoi 

COMMON/COMA/CobA (b) tbiNA (b) yOTAOA .01 AOMA 

C0MMON/COMY/AV1.AV2. TV2. I V4, I Vb.lvb, TV 7. ALVA, ALVd.ALVC.MV2.PV3, 

1 KVaiAV/. ULLL J . M V 1 

COMMON/COMZ/AV J.bViM.bV2M, ThV .MVb.MV7.bVl.8V2.Hbi.VHV 
COMMON/PAMMA/AFP.AL/.ACb. IA uTOV . bVA.bVAA 

COMMON/P A«Mb/ A P.PMiN.PMAA. WOO I .111.1 l J » wOO T U . NSLO T .NlAbt .NlMt . 

1 TAOlO. IUT LAo.NInCPL.BMNOOI . 1 lb. Ibl . Ib2.Nl .SCoM (18.2) 

COMMON/P AKMC/ Otc J .Otc / .8 7 l »bO 1 

COMMON/ P APMU/Nb A bOb . N AHbOb . A Jbb . Mt 1 . A JbN . A JbM . Ab AM 1 
COMMON / P AKM). /MLG . UC.L L 1 . Ad AH IN.MCM *Nb 1 T 1 ,NwIT2«LSh 1 1 1 .ALbA. 

I AJPN.AjPH 


/ 7 / 7 /V/VZT r 
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6 . 3 . 


20MM0N * i I c ration (Continued) 


43EK5iMkP^; F ;4 

OF POOR QUALITY 


COMMON/pAKMf /l fPtUtCTA, J, AH GY • ‘'ON • l) 1 S • AMPN • A T • 

1 

COMMUN/PAmm,./ rt.AAN. VfN.vli.Ai T .iPNOT.bPOKLT, VPlNl . VtH.ABTOt 
COMMON/MAMMH/Blt.BOt . AANN.bX.WAA.Abii .UtLLWl ,W0PEA.A1£.YP1 *ZP1 , 

* AWCO.AWC1 .wotl *ACI TtL.Zl . AlO. fMWI , THHO. AOt 

COMMCN/Pu«Mt/AuMCYL.AldCYL.AiPCYC.AMWA.A*OYY.VPH.vPN 

COMMON/PhKM j/ « Th 

Common/Pmhmu/E *tPl *PtPU.C* OL * Vf Mtb.uOt OttU •CLOPS. CFO ,*GTOT. 

1 b«UoTN 

COMMON/PAHML/HOLUM,AC.lA.OWA* . AL1 1 A.A:>,«PA,ZPO*YPOfDStKdHAfV,KVSTW 

COMMON / P MNMM/ W A T • AH A I * T HH * 0 AM A 1 *CAMAZ»Z1AT 
COMMON/P AH MN/UPM A t UP 3 A 
COMMON/PmHMI)/ ACM *Kn Abdd *H AWSoH • K OAM 

COMMON/ ->„hmh / “•HZ.HUJ .HMC.hP J.XHH.HP^.WO^.wPlOtHPU.HPl^.KMl J.AP1 . 
1 AHJ.APb.AWj 1 .APiJ 

c jmmon/pammu/hoyp ( la ) « Af hpl ( la) • alphp ( i a) 

COMMON/MA«MH/HBbCOT . HSLU T A , waLO Tf *SL *F _ 

COMMON/ l CMN 

COMMON /MAM Mi ' / A N i 
COMMON/PA ■■< v / « !■ 

COMMON /Pm AM «/ » oMOM 1 

COMMON/HAAMA/i.E 1 ,tMO 

COMMON/ PAWMY/PbAPH (la) »PbFPH (IB) 

COMMON/r* A«M// AObCU I ,Po 
COMMON/PukmaA / TO* IELAO 

COMMON/P AMMAB/ MiOtJM'j • NbOOMO • Nt NO • 4 St A • A at H * Sl'MO / A • SOMl) VH 

MtA.ntb.AttA, Attb.OVA.UYrt.HEI A.Wt ft) . A *t A , A ritfa . OtCM 
PMOlNA(BO) tPMUlNB(bO) .HMOlNA(SO) .WMOINB(SO) • 

ACONA l bl) > * ACGNb (bO > . AaNA (b») • ABNH (bO ) 

AdAHl A . AbAHla • AJPPA . A JPPB « A JbB A • A JBBB 

»l A * « Jb » m I a* « fa 

( A SUB <^U ) « ( Hboa <4(0 ) «NHSOB 

vnO/ad* rMtTt.* • s 1 w a i c * NCONT 

VE Na . vf Nd» VCNA « YCNb 

COMMON /PahmaJ/ AaNA * a Anb • A JPN/ A * A JPNZd » A JbNZ A • A JdNZd * ABN A t AUNU 
COMMON/M akMAH/P I A r , AtNi *01 A ,Hl A t Hlb« A^A, VGA .PMA.PMAZ, TMA* VOA^, 

1 MOOt I A*Old*AlA*MOlB 

COMMON/makMal/OwOOI A *lHUO)b,0*UTA.0w0TB,PlB* .T Id.MlB 
CUMMON/PAHMAM/ lAld(bO) . U<fo<bl)> .TAUNd(bO) 

COMMUN /HmHMAN/ AldtA^e 

CUMMON/UoMVa/ACH . ALHl . AI.HMAa ♦ ALHb. AH.0AMA1 .A WO 
COMMON/OOMTB/A)' O 

Common/oomtc • r I s T • I iPtCR 

COMMON/I. <MYL)/ I lMM,v.I-*M 
COMMON/UJMTO/ I iMCM tAf HrlCO.pCTAbA 

COMMoN/UUMYj/AJr.nt-.a jPMtH.ARWrd.ANKPJ.AAHlB.AKHlP.ABAHHF.ABAHPI 
COMMON/OOMYN/PkCH 1 r * A WOW I N 
CUMM jN/oOMYu/ T iMCN^ 

CUMMON/OOMTM/CM iMt*NItblA 

COMMON /oOM YN/ ACbOB A • At » A * OO « *OHH tOPS 

COMMON/ JOMYO/-bi-Oi J.lAJLbl 

COMMO ./OOMyh / Ar »,-* T .ANOYMl ,ALPmI,Taom«,ThOCO 
CoMMON/UJMTo/alamn. C.Coot I .OtLLP.OIbd.tHS.E A .PhMAX , PMOLU . 

I WHA *H^NA * PboPO . FSb* U. >*0o • «00 I A 

COMMON/OOMYb/1 •»M*dbdM 
COMMon/OOMYH/uUMP tNBACN 
COMMON/, OMY l / AH 1 
COMMoN/OoMYO/OtCOT 

COMMON/ OOMY y/GtOHUN 

Common/oomy»/Iaohpl ( la) 

CoMMON/OOMYA/ VOd/.MMaZ.VOd, I iMt/.lPASS 


COMMON /P'*HM AC/ 
COMMON /P mm MAO/ 

A 

COMMON/PMHMAt/ 
COMMON /PmkMA* / 

COMMoN / mahm a 0/ 
COMMON/MMKM/.h/ 

Common/P«kma i / 


_JTfT-/r i '£7 

1 NO. 
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MATH PROGRAM UNIT 

symbol symbol 

A A 

A ( I ) RADIANS 

AAA - - - 


a n AAN SO IN 

NO AANN - - 

AAP - - - 




DESCRIPTION 


GENERAL FLOW AREA OF A CROSS SECTION. 

WORKING ;^RAY STORAGE ! LOCATION OF GRAIN 
DESIGN GEOMETRY ANCLES. 


COEFFICIENT OF FIRST ORDER TERM IN THIRD 
DEGREE EOUATION IN SUBROUTINE P3SUB WHlrn 
LOCATES I HE POINT P3 ON THE OUTER ELLIPSE OF 
HEAD-END WITH WEB. 


NOZZLE-LND SECTION BURN AREA. 

TEMPORARY VALUE O c NUMBER OF GRAIN CROSS 
SECTION SYMMETRICAL PARTS USED IN SUBROUTINE 
PT 1 AA . 

COEFFICIENT OF FIRST ORDER TERM IN SECOND 
DEGREE EOUATION X«»2 + Y**2 + A*x + B* Y ♦ D=0 
USED TO APPROXIMATE ELLIPSE BETWEEN POINTS P2 
AND P3 IN THE A PRIME PLANE FOR THE BLCC< 2A 
ANALYSIS OF THE HEAD-END WITH WEB IN 

SUBROUTINE SCI. 
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MATH PROGRAM UNIT 
SYMBOL SYMBOL 


A Bcyl 


ABB 

ABCYL 

ABHD 

ABIGR 

ABN 

ABP 


SO IN 
SO IN 

SQ IN 

SO IN 


A BSlot A0SLOT SQ ,n 

abslta SO IN 

ABSLTF SO IN 


i 


OF SCR I PT I ON 


COEFFICIENT OF FIRST ORDER TERM IN SECOND 
DEGREE EQUATION X**2 + Y«*2 ♦ A«X ♦ B*Y ♦ D=0 
USED TO APPROXIMATE ELLIPSE BETWEEN POINTS P2 
AND P3 IN THE B PLANE FOR THE BLOCK 2A 
ANALYSIS OF THE HEAD-END WITH WE3 IN 

subroutine sci. 

cylindrical section total burn area. 

FORE-HEAD GEOMETRY TABLE BURN AREA. 

(DEPENDENT VARIABLE* 


CROSS- SECTIONAL AREA OF WEB ZONE IN BLOCK 3 
ANALYSIS of head-end with wfb. USED in 
SUBROUTINE VOLSUB. 

AFT-HEAD GFOMFTRY T ABL F BURN AREA. (DEPENDENT 
VARIABLE ) • 

COEFFICIENT OF FIRST ORDER TERM IN SECOND 
DEGREE FOUATION X**2 * Y **2 + A*x ♦ B* Y * D=0 
USED TO APPROXIMATE ELLIPSE BETWFEN POINTS PI 
AND P3 IN THE B PRIME PLANE FOR THE BLOCK 2A 

analysis of the head-and with web in 

SUBROUTINE SCI. 

TOTAL BURN AREA ON GRAIN SEGMENT FACES FOR 
SEGMENTED MOTORS. 

BURN AREA ON SLOT AFT INTERFACE. 

BURN AREA ON SLOT FORWARD INTERFACE. 
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PROGRAM 

SYMBOL 

UNIT 

DESCRIPTION 

A BTot 

artot 

SO IN 

TOTAL MOTOR BURN AREA, 

col o 
1 ^ 

ACCEL 

- G-S - 

CURRENT I I ME VALUE OF VEHICLE ACCELERATION 
OBTAINED FROM ACCELERATION-TIME CURVE IN 

subroutine aibst. 


ACCEL T 

- G-S - 

VEHICLE ACCFLEPAT ION-T IME CURVE DEPENDENT 

variable. 


ACGA 

SO IN 

SECTOR AREA USED IN SUBROUTINE MSISU3 TO 
OBTAIN POLAR MOMENT OF CROSS SECTION FOR 
HEAD-FND WITH WEB. 


ACGB 

SO IN 

SECTOR AREA USFO IN SUBROUTINE MSISUP TO 
OBTAIN POLAR MOMENT OF TROSS SFCTION FOP 
HEAD-FND WITH WfM. 


a ff aee so in area of sector in subroutine aesub for end 

SECTION ANALYSIS. ALSO, NOZZLE EXIT AREA IN 
SETPH. 

a AER RADIANS ANGLE BETWEEN MOTOR CENTER LINE AND TANGENT 

ER TO END SECTION ELLIPSE. DETERMINED IN 

SUBROUTINE ENDCSR. 

AFD SO IN AREA ' SECTOR 3A OR 1 1 A IN SUBROUTINE AFPSUH 


D2-125266-1 R 


MATH 
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SYMBOL 
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DESCRIPTION 


AFF 

SO IN 

CROSS SECTIONAL AREA OF INCREMENT DIVIDING 
plane IN subroutine segsub. 


AFH I 

SO IN 

CROSS SECTIONAL AREA of UPSTREAM INCREMENT 

dividing plane in subroutine segsub. 


AFP 

SO IN 

CROSS SECTIONAL area OF REFERENCE PLANE IN 
SUBROUTINE AFPSUB. 


AFRPL ( 1 ) 
THRU 

AFRPL ( 18) 

SO IN 

REFERENCE PLANF CROSS SECTIONAL PROPELLANT 
AREA IN SUBROUTINE MNCHNA. DETERMINED FROM 
INTEGRATION OF PERIMETER LENGTH AT EACH TIME 
incrfm^nt. 


AFX 

SQ IN 

REFERENCE PLANE X CROSS SECTIONAL PROPELLANT 
AREA IN SUBROUTINE SEGSUB. 


AFY 

SO IN 

REFERENCE PLANF Y CROSS SECTIONAL PROPELLANT 
AREA IN SUBROUTINE SEGSUP. 

a h 

AHH 

SO IN 

HEAD-END SECTION BURN AREA. 

a ho 

AHO 

SO IN 

initial and past time value of head-end 

SECTION RUPN AREA. 

'Beyl 

aibcyl 

SLUG-SQ IN 

CYLINDRICAL SECTION RECTANGULAR MOMENT OF 

inertia determined in subroutine segsub# 
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SYMBOL 
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SYMBOL 

UNIT 

a ig 

AIG 

SO IN 


A INC 

IN 


A 1 HC IN( 1 ) 
THRU 

AINCINL 18) 

IN 


AINCN 

IN 

NINCPL 

AINCPL 

IN 


A I NCW 

IN 


AINCX 

IN 


AINCY 

IN 

1 Pcyl 

a i pcyl 

IN»»4 

'r 

ait 

LBF-SEC 


X""V ». 

I 

v — ; 

r 


DESCRIPTION 


IGNITER OPENING SURFACE AREA DETERMINED IN 
SUBROUTINE A1GSUB. 

TEMPORARY STORAGF LOCATION OF CURRENT 
INCREMENT DIVIDING PLANE LOCATION MEASURED 
FROM FORWARD TANGFNT PLANE. 

REFERENCE PLANE LOCATION MEASURED FROM 
FORWARD TANGFNT PLANE. 


NOZZLE SECTION REFERENCE PLANE OR AFT 
TANGFNT PLAN LOCATION MEASURED FROM 
FORWARD TANGENT PLANE. 

INCREMENT PLANE LOCATION MEASURED FROM 
FORWARD TANGENT PLANE WHERE ANISOTROPIC BURN 
RATE COEFFICIENT IS TO HE EVALUATED DURING 
START TRANSIENT INTERVAL. 


WORKING INCRFMFNT DIVIDING PLANE LOCATION 
IN SUBROUTINE SFGSUK. 

REFERENCE PLANE X LOCATION IN SUBROUTINE 
SEGSUB. 

REFERENCE PLANE Y LOCATION IN SUBROUTINE 
SEGSUB. 

CYLINDRICAL SECTION POLAR MOMENT OF INFPTlA 
OF CROSS SECTION IN SUBROUTINE SFGSUP. 


TOTAL IMPULSE 
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SYMBOL 

PROGRAM 

symbol 

UNIT 


DESCRIPTION 

'ist 

A I T ST 

LBF-SEC 


START TRANSIENT INTERVAL TOTAL IMPULSE. 

WHEN THIS VALUE IS INPUT, THE STAR! TRANSIENT 
INTERVAL WILL BE TERMINATED WHEN THE TOTAL 
IMPULSE, AIT, IS GREATER THAN OR EQUAL TO 
AITST iN SUBROUTINE TISUB. 

J BB 

A JBB 

slug-sq 

IN 

MOTOR PITCH AXIS MOMENT OF INERTIA APOUT 
CG GRAIN. 

J BH 

AJBH 

IN**4 


HEAD-END SECTION RECTANGULAR MOMENT OE 
INERTIA ABOUT FORWARD TANGENT PLANE FOR 

incremental volumes, determined in subroutine 

PT 1 A A , 

J BHed 

A JBHED 

SlUG-SO 

IN 

HEAD-END SECTION TOTAL RECTANGULAR MOMENT OF 
INERTIA ABOUT FORWARD TANGENT PLANE. 

J 

BHew 

AJBHEW 

SLUG-SQ 

IN 

RECTANGULAR MOMENT OF INERTIA OF HEAD-END 
WITH WEB ABOUT FORWARD TANGFNT PLANE. 


A JBHN 

SLUG-SO 

IN 

INTERMEDIATE VALUE OF HEAD-END WITH WEB 
RECTANGULAR MOMENT OF INERTIA DETERMINED IN 
THE BLOCK ? A ANALYSIS IN SUBROUTINE SCTOR1. 

J BH0 

AJBHO 

SLUG-SO 

IN 

HEAD-END SECTION INITIAL RECTANGULAR MOMENT 
OF INFRTIA. 

J BN 

A JBN 

IN»«A 


NOZZLE-END SECTION RECTANGULAR MOMENT OF 
INERTIA ABOUT AFT TANGENT PLANE FOR 
INCREMENTAL VOLUMES. DETERMINED IN SUBROUTINE 
PT 1 AA . 

^BNoz 

AJBNOZ 

SLUG-SO 

IN 

NOZZLE-END SECTION RECTANGULAR MOMENT OF 
INERTIA ABOUT AFT TANGENT PLANE. 


ft 
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c • • • * \ 


J AJPH IN*»A head-end section polar moment of inertia 

1 ABOUT ROLl AXIS FOR INCREMENTAL THIN SHELLS. 

DETERMINED IN SUBROUTINE P T 1 AA . 

J PH . 6 JPHED SLUG-SQ IN HEAD-END SFCTION TOTAL POLAR MOMENT OF 

* INERTIA ABOUT ROLL AXIS. 

J PHew AJPHEW SlUG-SQ IN POLAR MOMENT OF INERTIA OF HEAD-FND WITH 

CW Wf'P AROUT ROLL AXIS. 



AJPHN 

IN**4 


INTERMEDIATE VALUE OF HEAD-END WITH WEB POLAR 
MOMENT OF INERTIA DETERMINED IN THE BLOCK 2 A 
ANALYSIS IN SUBROUTINE SCTOR1. 

J PH0 

AJPHO 

SLUG-SQ 

IN 

HEAD-END SECTION INITIAL POLAR MOMENT OF 
INERT I A. 

J PN 

A JPN 

I N»*A 


NOZZl E-F ND SFCTION POLAR MOMENT OF INERTIA 
ABOUT ROLL AXIS FOR INCREMENTAL THIN SHFLLS. 
DETFRMInED IN SUBROUTINE pttaa. 

J PNoz 

A JPNOZ 

SLUG-SQ 

IN 

NOZZLE-END SECTION TOTAL POLAR MOMENT OF 
INFRTIA ABOUT POLL AXIS. 


A JPP 

IN»*4 


INTERMEDIATE VALUE OF POLAR MOMENT OF INERTIA 
OF CROSS SECTION OF INCREMENTAL AREAS IN 
SUBROUTINE PT 1 AA. 


AJPX 

SLUG-SQ 

IN 

INTERMEDIATE VALUE OF POLAR MOMENT OF INERTIA 
OF CROSS SFCTION OF INCREMENTAL ARFAS IN 
SUBRO'itINE PT 1 A A , 


AJSTB 

SLHG-SQ 

IN 

INITIAL VALUE OF HEAD-FND WITH WEB RECTANGULAR 
MOVENT OF INFRTIA. DETERMINED IN SUnpOIJTlNF 
A\T r .UH« 



MATH PROGRAM UNIT 
SYMBOL SYMBOL 


AJSTP SLUG-SQ IN 


K AK 


KG 1 AKG(I) 

THRU THRU 

KG5 AKG(5) 


Kgy akgy 


SO IN 


AKGYHI SO IN 



AKGYP(I) IN«*A 
THRU 

AKGYP( 15) 



AKGYX 


SO IN 


DESCRIPTION 


INITIAL VALUE OF HEAD-END WITH WEB POLAR 
MOMENT OF INERTIA. DETERMINED IN SUBROUTINE 
ASTSUB. 

input value which determines distance between 
planes for the head-end web analysis and for 
the end section analysis. 


CRITICAL MASS VELOCITY ( G C R ) PER UNIT 
AREA FOUATION CONSTANTS. 


RADIUS OF GYRATION OF CYLINDRICAL SECTION 
INCREMENTAL CROSS SECTIONS. DETERMINED IN 
SUPROUTINF PT1AA. 

RADIUS OF GYRATION OF UPSTREAM CYLINDRICAL 
SECTION INCREMENTAL CROSS SECTIONS. 
INITIALIZED IN SUBROUTINE SEGSUB. 

REFERENCE PLANE GEOMETRY TABLE RADIUS OF 
GYRATION OF CROSS SECTION (DEPENDENT 
VARIABLE). THIS VARIABLE APPEARS AS INPUT 
ONLY IF THE MOMENT OF INERTIA OPTION 
(KMOICG=l) HAS NOT BEEN SUPPRESSED. 


RADIUS OF GYRATION OF RFFFRFNCE PLANE x In 

SUBROUTINE S~GSI H. 
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OF SCR I PT I ON 


AKGYY 

SQ 

IN 

RADIUS OF GYRATION OF REFERENCE PLANE Y IN 
SUBROUTINE SEGSIJR. 

KK 

AKK 



ADJUSTING FACTOR USFD IN THF HFAD-FNP WEB 
BLOCK 7 ANALYSIS TO DETERMINE DISTANCE 
BFTWFFN PLANFS. 

KR 1 

THRU 

<R-?9 

AKR( 1 ) 
THRU 
AKR( 39) 



BURNING RATE EQUATION CONSTANTS. 


AKRF 3 

SO 

IN 

INTERMEDIATE RADIUS OF GYRATION VALUE IN 
SUBROUTINE MNCHN3 FOR HEAD-END WITH WEB. 

KRH 

AKRH 


‘ 

HEAD-END SECTION BURN RATE COEFFICIENT. USU 
VALUF IS i HE SAME AS THF CYLINDRICAL SECT 1 0 
STEADY SIATE BURN RATE COEFFICIENT. 

KRN 

AKRN 

- - 

- 

NOZZLE END SECTION BURN RATF COEFFICIENT. 
USUAL VALUE IS THE SAME AS THF CYLINDRICAL 
SECTION STEADY STATE BURN RATE COEFFICIENT. 


AKRTAU 

- - 

- 

START TRANSIENT BURN RATE COEFFICIENT TABLE 
DEPENDENT VARIABLE. 


KSLOT 


AkSlOT ( I 1 


slot burning ratf fowatjon coefficient 
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AKRST 

- - - 

KUl 

THRU 

KU5 

AKU( 1 ) 
THRU 
AKU( 5) 

- - - 

l a 

ala 

IN 


ALA( 1 ) 
THRU 
ALA( 18) 

IN 

X. 

alamda 

RADIANS 

\ , 
min 

ALAMIN 

RADIANS 

l b 

alb 



ALA( 1 ) 
THRU 
ALB( 18) 

IN 

«-r 

All 

IN 


DESCRIPTION 


ANISOTROPIC PROPELLANT BURNING RATE EQUATION 
COEFFICIENT DURING THE START TRANSIENT AND 

tail-off intervals. 

CRITICAL GAS VELOCI 1 Y ( u C R ) EQUATION 
constants. 


INITIAL LENGTH OF SECTOR 2« DETERMINED IN 
SUBROUTINE PLNCNS (FIGURE 5.24). 

PERIMETER LENTH OF SECTOR I A FOR A 
PLANE. 


ANGLE BETWEEN MOTOR AXIS AND A LINE FROM 
CENTER OF TORUS GENERATING CIRCLE TO OUTSIDE 
ELEMENT OF SURFACE INCREMENT ON TOROIDAL 

end area in zone b of end section 

STRAIGH THROUGH GRAIN. (FIGURE 5.23) 

ANGLE BFTWFEN MOTOR AXIS AND A LINE FROM 
CENTER OF TORUS GENERATING CIRCLE TO INSIDE 
ELEMENT OF SURFACE INCREMENT ON TOROIDAL 
END AREA IN ZONE B OF END SECTION 
STRAIGHT THROUGH GRAIN. (FIGURE 5.23) 

INITIAL LENGTH OF SECTOR 4. DETERMINED IN 
SUBROUTINE PLNCNS (FIGURE 5.24) 

PERIMETER LENGTH OF SECTOR 4 FOR A REFERENCE 
PLANE. 


INITIAL LENGTH OF SECTOR 6. DETERMINED IN 
SUBROUT»»if PLNCNS (FIGURE 5.24). 
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l d 

ald 

in ; 

INITIAL LENGTH OF SECTOR 10, DETERMINED IN 
SUBROUTINE PI.NCNS (FIGURE 5.2A). 

l e 

ale 

IN 

INITIAL LENGTH OF SECTOR 12. DETERMINED IN 
SUBROUTINE PLNCNS (FIGURE 5.2A). 


ALE ( 1 ) 
THRU 

ALL(IS) 

IN 

PERIMETER LENGTH OF SECTOR LE FOR A REFERENCE 
PLANE. 

i 

L P 

ALP 

IN 

TOTAL PERIMETER LENGTH OF CURRENT INCREMENT 
DIVIDING PLANE CROSS SECTION FOR A SEGMFNT . 


ALPHI 

IN 

TOTAL PERIMETER LENGTH OF UPSTREAM INCREMENT 
DIVIDING PLANE CROSS SECTION FOR- A SEGMENT • 


ALPPL(I) 

THRU 

ALPPL( 18) 

IN 

REFERENCE PLANE GEOMETRY JABLE PORT PERIMETER 
(DEPENDEN! VARIABLE). 

l q 

ALO 

IN 

ARC LENGTH ON PSUEDOELL I PSO I D. DETERMINED 
IN SUBROUTINE SC TORI (FIGURE S.4) 

l r 

alr 

IN 

LENGTH TO A POINT ON BURNING SURFACF 
PERIMETER IN ANY SECTOR AT THICKNESS 
TAU MEASURED ALONG PERIMETER FROM 
END OF SECTOR' NEAREST MOTOR AXIS. 

determined in subroutine alrsub. 

(FIGURE S • 22 I 

^■Rmax 

alRmax 

IN 

LENGTH OF PART OF BURNING SURFACE PERIMETER 
IN ANY ZONE AT THICKNESS TAU MEASURED 


FROM F NO OF SECTOR NEAREST MOTOR AXIS 
TO T NO OF SECTOR OR ZONE. WHICH . Vf P IS 
SMAI'FR. DETERMINED IN SUBROUTINE ArSUR. 
( FIGURE S.21I. 
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SYMBOL 

UNI 

l ri 

ALRI 

IN 

l rs 

ALRS 

IN 

L X 

alsubx 

IN 

l ta 

ALTA 

IN 

l tb 

altr 

IN 

LSI A 
THRU 
LS1K 

ALSKI) 

THRU 

ALSKI8) 

IN 

LS2A 

THRU 

LS2K 

ALS2( 1 ) 
THRU 
ALS2( 18) 

IN 

AL 7 

AL7 

IN 

ALg 

AL8 

IN 


MW 


AMW 


DESCRIPTION 


LENGTH TO THE LOWEST POINT ON BURNING 
SURFACE PERIMETER IN ANY ZONE AT 
THICKNESS TAU. MEASURED ALONG PER I ME TF R 
FROM END OF SECTOR NEAREST MOTOR AXIS 
DFTFRMINED IN SUBROUTINE AF SUB 
I FIGURE 5.21) 

LENGTH OF CHORD DETERMINED IN SUBROUTINE 
ARSSUB • ( FIGURE 5.22). 

LENGTH OF A SECTOR AT THICKNESS TAU 
DETERMINED IN SUBROUTINE AFPSUB (FIGURE 
5.21 ) . 

ARC LENGTH BETWEEN POINTS PRA AND PSA 
(FIGURE 5.2) 

ARC LFNGTH BF TWEEN POINTS PPB AND PSB 
(FIGURE 5.2) 

LENGTH FROM WEB TO INNER GRAIN POINT OF 
REFERENCE PLANE. 


LENGTH FROM WEB TO OUTER GRAIN POINT OF 
REFERENCE PLANE. 


PERIMETER LENGTH OF ANISOTROPIC PROPELLANT IN 
SECTOR 7 DURING TAIL-OFF. 

PERIMETER LENGTH OF ANISOTROPIC PROPELLANT 
IN SFCTOR P DURir' TAIL-OFF. 

PRESENT TIMF VALUE OF PROPELLANT GAS 
MOI. mi’ r -» WEIGHT. 



D2-125286-1 R 
220 


MATH 

symbol 
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DESCRIPTION 


AMWQ 

LBM/MOLE 

TABULAR INPUT VALUE OF PROPELLANT GAS 

molecular WEIGHT. 

Nl TW 

NN 

AN 1 ' 1 
ANN 

. . . 

NUMBER OF INCREMENT DIVIDING PLANES FOR 
WHICH WEB BURN THROUGH MUST OCCUR BEFORE 
TAILOFF BEGINS. 

NUMBER OF NOZZLES. 


ANGLE 

RADIANS 

CENTRAL angle That defines INTERSECTION OF 
ISOTROPIC PROPFLLANT ARC LENGTH WITH CAS* 7 
WALL IN SECTOR 7 DURING MOTOR TAIL-OFF. 


ANI 

- - - 

FLOATING POINT NUMBER OF TOTAL INCREMENT 
DIVIDING planes. 

NO A 

THRU 

NOK. 

ANO( 1 ) 
THRU 
ANO( 18) 

— — — 

REFERENCE PLANE NUMBER OF GRAIN CROSS SFCUON 
SYMMETRICAL PARTS. 

N2 

AN2 

DEGREES 

nozzle expansion cone half-angle. 

°01 

AO 1 ( 1 ) 
THRU 
AOK 18) 

DEGREES 

RFFERFNCE PLANE ANGLE OF SLOPE LAA WHICH 
DEFINES INITIAL GRAIN GEOMETRY. 

U 02 

A02( 1 ) 
THRU 
A02( 18) 

DEGREES 

REFERENCE PLANE ANGLE OF SLOPE LBA WHICH 
DEFINES INITIAI GRAIN GEOMETRY. 

a 03 

A03( 1 ) 
THRU 
A03( 18) 

DEGREES 

REFERENCE PLANE ANGLE OF SLOPE LC A WHICH 
DEFINES INITIAL GRAIN GEOMETRY. 
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UNIT 

DESCRIPTION 

Q 04 

A04( 1 ) 
THRU 
A04( 18) 

DEGREES 

REFERENCE PLANE ANGLE OF SLOPE LDA WHICH 
DEFINES INITIAL GRAIN GEOMETRY. 

a 05 

A05( 1 ) 
THRU 
A05( 18) 

DEGREES 

REFERENCE PLANE ANGLE OF SLOPt LcA WHICH 

defines initial grain geometry. 

AOE 

AOE 

IN 

LENGTH OF SEMI-MAJOR AXIS OF INNER 
ELLIPSE (FIGURF 5.7) 

n 0Hmax 

AOHM 

DEGREES 

ANGLE BETWEEN TANGENT TO FORE-HEAD ELLIPSE 

and motor centerline. 

^ONmax 

AONM 

DEGREES 

angle between TANGENT TO AFT-HEAD ELLIPSE AND 
MOTOR centerline. 

A P 

AP 

SO IN 

PORT AREA OF CURRENT INCREMENT DIVIDING PLANE 
FOR A SEGMENT. 


APHI 

SO IN 

PORT AREA OF UPSTREAM INCREMENT DIVIDING 
PLANE FOR A SEGMENT. 


APORT(I) 

THRU 

APORT ( 18) 


INITIAL PORT AREA OF A REFERENCE PLANE. 

a r 

AR 

SO IN 

AREA OF SECTOR BCD IN ZONE A OF THE AFT END 
BURNING SURFACE ( FIGURF 5.22) 

a rcO 

ARCO 

RADIANS 

ANGLE RFTWFFN Y-AXIS AND NORMAL LINE 
THROUGH PO ( FIGURF 5.4). USED IN 


subroutine sctori for the head-end with 
wrn ni • ?a amaiysis 
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a rcl 

ARC 1 

RADIANS 

a ro 

ARO 

SO IN 


ASE 

SQ IN 


AS I 

SQ IN 

A Slvr 

ASLVR 

SQ IN 

a t 

AT 

SQ IN 

> 

H 

O 

ATO 

SQ IN 

A n 

ATT 

SQ IN 


AWE 

SQ IN 


description 


ANGLE RETWFEN Y-AXIS AND NORMAL LINE THROUGH 
PI (FIGURE 5. A). USFD IN c U*ROUTIN c c .r TO 1 
FOR THE HEAD-END WITH W r P T l OCK ?A A N A L Y i 

AREA OF SECTOR AEF IN ZONc f <>» 1»'E * 

BURNING SURFACE ( FIGURE S.22> 

END SECTION BURN AREA. COMPUTED IN SU'»'*^lT|NE 
ASESUB. 

BURNING SURFACE AREA OF AN INCREMENTAL STRIP 
DETERMINED IN THE BLOCK ?A ANALYSIS OF THf 
HF AD FND WITH WEB IN SUBROUTINE SCI (FIGURE 
5. A) 

INCREMENT DIVIDING PLANE INERT SllVFP AREA 
FOR ONE GRAIN CROSS SEC I ION SYMME TPK Al P-f . 

EXHAUST NOZZLE THROAT AREA. 

AREA IN ZONE A OF THE AFT FND BURNING SURFACE 
BETWEEN THE CHORD LRS A\f) THE CIRCULAR AH' 

LR ( FIGURE 5.2?) 


THE POSITIVE OR NEGATIVE VALUE OF ATO 
DEPENDING ON RT. NEGATIVE IF RT IS NEGATIVE 
AND POSITIVE IF RT IS POSITIVF. 

TOTAL BURNING SURFACE ARFA OF WFB ZON c 
(SECTOR 8 PLUS AFT FACE ) OF THE AIT FND 
BURNING SURFACE AT THICKNESS TAU 
DETERMINED IN SUBROUTINE AWFSUB. 



t 
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BE 

BE 

IN 

LENGTH OF SEMI-MINOR AXIS OF END SECTION. 

fore-head c h ) or aft-head in). 

P H 

BH 

— — — 

FORE-HEAD CASE ELLIPSE RATIO. 

P N 

BN 

- - - 

AFT-HEAD ELLIPSE RATIO. 

BOE 

BOE 

IN 

LENGTH OF SEMI-MINOR AXIS OF INNER ELLIPSE 
OF HEAD-END WITH WEB. 


BRNOUT 

- - - 

PROGRAM CONTROL FLAG FOR WEB BURNOUT. 

P OE 

BTAOE 


RATIO OF HEAD END WEB ELLIPSE AXIS NORMAL TO 
MOTOR AXIS TO ELLIPSE AXIS PARALLEL WITH 
MOTOR AXIS. 


BVX 

RADIANS 

ANGLE OF INERT SLIVER IN SECTOR 7. 


BVXX 

RADIANS 

ANGLE OF INERT SLIVER IN SFCTOR 6. 


BV2 

RADIANS 

ANGLE THAT DEFINES PERIMETER LENGTH OF 
propellant IN SECTOR 7. 


BV2P 

RADIANS 

ANGLE THAT DEFINES PERIMETER LENGTH OF 
ISOTROPIC PROPELLANT ONLY IN SECTOR 7. 

^71max 

B71M 

RADIANS 

GEOMETRY CONSTANT DETERMINED IN SUBROUTINE 
PLNCNS (FIGURE 5.25) 

^72max 

B72M 

RADIANS 

GEOMFTRY CONSTANT DETERMINED IN SUBROUTINE 
PLNCNS ( FIGURE 


J 
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CRP 

CRP 

- - - 

CONVERGENCE VALUE TOR NON-STEADY FLOW DISCHARGE PRESSURE 
AT EXIT OF EACH MASS ADDITION REGION. 

CRT 

CRT 

- - ~ 

CONVERGENCE VALUE FOR RON-STEADY FLOW DISCHARGE GAS 
TEMPERASURE AT EXIT OF EACH MASS ADDITION REGION. 

CRW 

CRW 

- - - 

CONVERGENCE VAIUE FOR ROW-STEADY FLOW TO COMPARE FLOW 
RATES AT EXIT OF GRAIN TO TSIAT WHICH CAN BE DISCHARGED 
T5IROUCH NOZZLE BOTH AT SAME TOTAL PRESSURE. 

C* 

CSTAR 

fT/SEC 

PROPELLANT GAS CHARACTERISTICS VELOCITY. 


* 
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^ 91 >nax 

B91M 

RADIANS 

P 92max 

B92M 

RADIANS 


CAE 

CBE 

CCCE 

CCVE 

CDCE 

CDVF 

CFCF 

CEVF 


C F0 

CFO 

- - - 


CKDUMP(l) sec 
CKDUMP ( 2 ) SEC 


CM 


DESCRIPTION 


geometry constant determined in subroutine 
PLNCNS (FIGURE 5.25) 

GEOMETRY CONST ANT DETERMINED IN SUBROUTINE 
PLNCNS ( FIGURE S.?S) 

CONSTANTS USED in calculation of coefficient 
FOR FOURTH-DEGREE EQUATION FOR SOLUTION 
OF INTERSECTION OF TOROIDAL SURFACE AND 
END SECTION ELLIPSE. DETERMINED IN 
SUBROUTINE FNDCSR. 


THRUST COEFFICIENT DETERMINED FROM 
MOMENTUM exchange ONLY WITHOUT expansion FROM 
EXIT PRFSSURF TO AMBIENT PRFSSURF. 

LOWER TIME LIMIT FOR A DIAGNOSTIC PRINT IN 
SUBROUTINE MNCHN4 

UPPER TIME LIMIT FOR DIAGNOSTIC PRINT IN 
SUBROUTINE MNCHN4. 

NOZZLE EFFICIENCY. 
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CSTr 

FT/SEC 

TABULAR INPUT VALUE OF CHARACTERISTIC 
VELOCITY FOR PROPELLANT GAS (DEPENDENT 
VARIABLE). 

°E 

OE 

IN 

nozzle exit diameter. 

P f 

DELF 

LB/CU IN 

propellant density. 

A L 

dell 

IN 

incremental perimeter length USED in 
approximate integration of surface areas 

(FIGURE 5.?3) 


deli.o 

IN 

D I stance between points po and pi used 

to ODTATn S'iVF VD'-A OF BLOCK 1 ANA L YS! 

Or ML A , • f ; . , 

A R 

delr 

IN 

distance between points po and pi used 

TO OBTAIN SURFACE AREA OF BLOCK 2 B 
and volume IN BLOCK 3 OF head-end WITH 
WEB. 

At 

DELT 

SEC 

CURRENT VALUE OF TIME INCREMENT 

P 

DELTA 

LB/CU IN 

PROPELLANT GAS DENSITY. 

jt ss 

DELTSS 

SEC 

FIXED TIME INCREMENT FOR STEADY- STATE. 

At sr 

DEL TS T 

SEC 

FIXED time INCREMENT USED DURING START 
transient. 

At T0 

DEL T TO 

SEC 

FIXED TIME INCREMENT FOR TAIL -OFF OR 
shutdown. 
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SYMBOL SYMBOL 

dZ DELZ IN 


°E1 

DEI 

IN 

°H1 

DHl 

IN 

dL 

R f 

dlrf 

— — 

°Nl 

DN1 

IN 


D03 

IN 

4P o 

DPO 

PSI A 


DPR 

IN 







DESCRIPTION 


MAXIMUM LENGTH OF MASS ADDITION REGIONS IN 
GRAIN SEGMENTS. AT TIME=0, AN INCREMENT 
DIVIDING PLANE WILL BE PI ACFD EVERY DELZ 
INCHES DOWN EACH GRAIN SEGM NT BEGINNING AT 
THE FORWARD TANGENT PLANE Of; M THE AFT FACE 
OF A SLOT AND TERMINATING AT l HE AFT TANGEN1 
PLANE OR THE FORWARD FACE OF A SLOT. 


CASE OPENING DIAMETER (HI FORE-HEAD OR ( N I 
AFT-HEAD. 

FORE-HEAD CASE OPENING DIAMETER. 


DELTA-L OVER RF. WHERE DELTA-L = INCREMENT 
SIZE USED FOR THE BURNING SURFACE AREA 
CALCULATIONS, MEASURED ALONG THE I NTFRNAL 
PERIMETER IN THE ADJACENT REFFRENCE PLAnF. 


AFT-HEAD CASE OPENING DIAMETER. 


DISTANCE BETWEEN POINTS PO AND P3« DETERMINED 
IN SUBROUTINE SCI FOR HEAD-END WITH WEB 
ANALYSIS 

TOTAL PRESSURF LOSS IN NOZZLE END SECTION 
FROM MASS ADDITION. 

DISTANCF BFTWFFN POINTS POA AND POP. 
DETERMINED IN SUBROUTINE SCI FOR HEAD-END 
WITH WFP ANALYSIS. 


P 


a T"^83 £cT[”3Q 


I 


MATH 

SYMBOL 

program 

SYMBOL 

UNIT 

DESCRIPTION 


DPS 

IN 

DISTANCE BFTWEEN POINTS POA AND POB. 
DETERMINED IN SUBROUTINE SCI FOR HEAD-END 
WITH WEB ANALYSIS 

R f 

DRVRF 


DELTA-RV OVER RF, WHERE DELTA-RV = OUTSIDE 
PROPELLANT RADIUS OF ADJACENT REFERENCE 
PLANE. 

°T 

DT 

IN 

INITIAL NOZZLE THROAT DIAMETER. 
» 


DS 

IN 

DISTANCE BFTWEEN POINTS PO AND PI 
WHEN PI IS LOCATED ON THE CASE ELLIPSE 
(FIGURE 5.6-2> DETERMINED IN SUBROUTINE 
S2SK FOR HF AD-END WITH WEB ANALYSIS. 


DTAIK 1 ) 
THRU 

DTAU( 18) • 

IN 

incremental size of reference plane distance 

BURNED TO EVALUATE GEOMETRY TABLES. 

dT 

W 

DTAUW( 1 ) 
THRU 

DTAUW( 18) 


increment/^ size of reference plane distance 

BURNED BEYOND WEB THICKNESS TAUW TO EVALUATE 
GEOMETRY TABLES. 

AM 

DV 

CU IN 

INCREMENTAL PROPELLANT VOLUME USED TO 


DETERMINE INITIAL PROPELLANT VOLUME IN FND 
?«f ( T I f‘ ,,r > IN SUPROUT I N r ASESUB. 


J 
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dV 

DVDT 

CU I N/ 1 

dt 



dW 

dwdot 

LB/SEC 

dW 

dwdt 

LB/SEC 

dt 



d^slot 

DWDTS 

lb/sec 

dt 



dW r 

DWSLOT 

LB/SEC 


OF SCRIPT! ON 


rate of change of slot volume with respect to 

TIME* COMPUTED IN SR SEGSUB FROM TSLOT AND 
RSLOT . 

PROPElLANT GAS GENERATED IN SEGMENT OR MASS 
ADDITION RFG I ON • 

STORED PROPELLANT GAS IN SEGMENT OR CONTROL 
VOLUME. 

MASS OF STORED GAS IN A SLOT FOR ONE 
COMPUTING INTERVAL. 

MASS FLOW GENERATED IN A SLOT. 


€ ca 

EPCA 


£ cn 

EPCN 

- - - 

’l 

ETA 1 

RADIANS 


ETA2 

RADIANS 


measured CASE STRAIN AT forward tangent 
plane. 

MEASURED case strain at aft tangent plane. 


angle from R5 radius point that defines 
intersection of anisotropic propellant with 
CASF WALL in SECTOR 7 DURING MOTOR TAIL-OFF. 

ANGLE FROM R5 RADIUS POINT THAT DEFINES 
intfrsfction OF ANISOTROPIC PROPFLLANT WITH 
ISOTROPIC PROPELLANT IN SECTOR 7 DURING MOTOR 
tail-off. 
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''ii 

ETA 1 1 

RADIANS 

central angle that defines intersection of 

ANISOTROPIC PROPELLANT WITH CASE WALL IN 
SECTOR 7 DURING MOTOR TAIL-OFF. 

"22 

ETA22 

RADIANS 

central angle that defines intersection OF 

ANISOTROPIC PROPELLANT WITH ISOTROPIC 
PROPELLANT IN SECTOR 7 DURING MOTOR T A I L-OFF • 

7 

GAMA 

- - - 

PROPELLANT GAS SPECIFIC HEAT RATIO. 

7 G 

GAMAG 

- - - 

tabular input value of propellant gas 

SPECIFIC HEAT RATIO (DEPENDENT VARIABLE). 

7 r 

GAMAR 

RADIANS 

angle between radial vector ra and bisector 

OF PRIMARY OR SECONDARY PROPELLANT TIP. 
(FIGURE 5.23) 

7 ro 

gamaro 

RADIANS 

ANGLE BETWEEN RADIAL VECTOR RAO AND BISECTOR 
OF PRIMARY OR SECONDARY PROPELLANT TIP. 
(FIGURE 5.22) 

7 t 

gamat 

RADIANS 

ANGLE SUBTENDED AT CENTER OF RADIUS RT 
BY CHORD LRS (FIGURE 5.20 AND 5.21). 

7 1 

GAMA 1 

RADIANS 

ANGLE BETWEEN NORMAL LINE TO PERIMETER OF 
GRAIN CONFIGURATION AND NORMAL LINE TO 
THE LINE SEGMENT RAT (FIGURE 5.6) 
DETERMINED IN SUBROUTINE GAMSU9 . 

7 2 

GAMA2 

RADIANS 

ANGLE BETWEEN Y-AXIS AND NORMAL LINE TO INNER 
ELLIPSE (FIGURE 5.7) DETERMINED IN 
SUBROUTINE GAMA2S • 


rs 
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9 o 

GNOT 

FT/SO SEC 

H co 

HCO 

IN 

h E 

HE 

IN 

h E0 

HEO 

IN 

h ER 

HER 

IN 

h E. 

HE 1 

IN 

h E2 

HE2 

IN 


HOLDR 

IN 


DESCRIPTION 


GRAVITATIONAL CONSTANT 
LENGTH OF CYLINDRICAL SECTION. 


length of a general element or length of 

LONGER FDGF OF ELEMENT USED IN CALCULATION 
OF BURNING SURFACE AREA FOR THE END 
SECTION ANALYSIS. DETERMINED IN SUBROUTINE 
HESUB. 

geometrical LENGTH of END SECTION. DETERMINED 
In SUBROUTINE ENDCSB. (FIGURE 5.35) 

RFFERENCF LENGTH OF END SECTION. DETERMINED 
IN SUBROUTINF FNDCS9. (FIGURE 5.35) 

LENGTH OF END SECTION CONIC SECTION. 
DETERMINED IN SUBROUTINE ENOCSB (FIGURE 5.35) 

length of end SECTION ELLIPTIC section. 
DETERMINED IN SUBROUTINE ENDCSB (FIGURE 5.35) 

PREVIOUS ITERATIVE VALUE OF PERIMETER LENGTH 
ALONG CURRENT SECTOR. INITIALIZED IN 
SUBROUTINE SCI FOR THE BLOCK 1 ANALYSIS 
OF THE HF AD-END WITH WEB. 
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I FLAG - - 

IIS 

I I z - - 

151 

152 

KMOICG 


NACCEL 


r 


I 

DESCRIPTION 


CONTROL FLAG IN SUBROUTINE AIBST TO INDICATE 
ITERATION PASSES FOR FALSE POSITION 

iteration. 

CURRENT Slot number. USED AS a SUBSCRIPT 
for the slot variables. 

SUBSCRIPT OF RBZ TO INDICATE DIVIDING PLANE 
LOCATION. 


NUMBER OF INCREMENT DIVIDING PLANE THAT IS 
LOCATED JUST UPSTREAM OF SLOT FORWARD 
INTERFACE. USED IN SR SEGSUB TO OBTAIN STATIC 
PRESSURE AT SLOT INLET. 

NUMBER OF INCREMENT DIVIDING PLANE THAT IS 
LOCATED JUST DOWNSTREAM OF SLOT AFT INTERFACE. 

USED IN SR SEGSUB TO STORE SLOT DISCHARGE 
STATIC PRESSURE FOR NEXT GRAIN SEGMENT. 

MOMENT OF INERTIA CALCULATION SUPPRESSION 
FLAG. A NON-ZERO VALUE WILL SUPPRESS THE MOI 
AND CG CALCULATION. 


number of table input values of acceleration 
-time curve. 


) 
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NAKRST - - 

NCSTR 

NEPS 

NGEOHD - - 

NGEO( I ) 

THRU 
NGEO( 18) 

NGCOMN - - 

N 1 - - 

NINCPL - - 

NPH - - 


NSLOT 


*e*- 


DESCRIPTION 


NUMBER OF TABLE INPUT VALUES O c ANISOTROPIC 
PROPELLANT BURN RATE COEFFICIENT TA^LE. 


NUMBER OF TABLE INPUT VALUES OF PROPELLANT 
GAS PROPERTIES FOR CSTR. GAMAG. AMWG » T COMB ♦ 
AND PRESS TABLES. 

NUMBER OF TABLE INPUT VALUES OF MEASURED CASE 
STRAIN data TABLE. 


NUMBER OF FORE-HEAD GEOMETRY TABLE VALUES. 


NUMBER OF REFERENCE PLANE GEOMETRY TABLE 
VALUES. 


NUMBER OF AFT-HEAD GEOMETRY TABLE VALUES. 

3. 

INTEGER NUMBER OF TOTAL INCREMENT DIVIDING 
PLANES. 

DESIRED INCREMENT DIVIDING PLANE NUMBER TO 
DETERMINE BURN RATF COEFFICIENT TABLE 
INDEPENDENT VARIABLE. TAUAKR. 


NUMBER OF TABLE INPUT VALUES OF HEAD END 
PRESSURE TAbLE. 


INTEGER NUMBER OF TOTAL SLOTS 
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NTME 


P PA PSIA 


PCTAB 


p PD PSIA 

D 

p* PDPR PSIA 

r D 

p PHI PSIA 

Ml 

PHST PSIA 


DESCRIPTION 


NUMBER OF computed VALUES OF anisotpopic 

PROPELLANT BURN RATE COEFFICIENT TABLE* 
ATMOSPHERIC PRESSURE. 


percent change* relative TO l.O* IN total 

BURN AREA RECU I RED TO CONVERGE SOLUTION TO 
DESIRED VALUE OF HEAD END PRESSURE AND BURN 
RATE COEFFICIENT. PROGRAM WILL CLOSE ON PCTAB 
AT EACH TIME INCREMENT FOR SET VALUE OF PH 
AND AKRST AS A FUNCTION OF TIME FROM INPUT 
TABLES. 


PRESENT TIME DISCHARGE PRESSURE OF INCREMENT 
DIVIDING PLANE. COMPUTED IN SUBROUTINE AlBST. 

PREVIOUS TIME DISCHARGE PRESSURE OF INCREMENT 

dividing plane, initialized in subroutine 

MNCHNA 

initial guess of fore-head prfssure for first 

time INCREMENT. 

DEPENDENT VARIABLE OF HEAD-END PRESSURE CURVE 
FIT FOR START TRANSIENT. 
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« PI 

£ PIO? 

2 


PMOIHD SLUG-SQ IN 


PMOIN SLUG-SQ IN 


P PO 

o 


DESCRIPTION 


! 


mathematical constant. 
PI DIVIDED BY TWO. 


FORE-HEAD GEOMETRY TABLE POLAR MOMENT OF 
INERUA (DEPENDENT VARIABLE). 


AFT-HEAD GEOMETRY TABLE POLAR MOMENT OF 
INERTIA (DEPENDENT VARIABLE). 


POINT ON A PLANE USED IN THE BLOCK 1 
ANALYSIS OF THE HEAD-END WITH WEB. LOCATED 
ON THE INNER ELLIPSE ALONG A LINE PARALLEL 
WITH THE Y-AXIS AND NORMAL TO THE 
FORWARD TANGENT PLANE AT A POINT IN A 
SECTOR ALONG THE GRAIN INITIAL PERIMETER. 
(FIGURE 5.18) 

OR 

POINT ON THE PSUEDOELL I PSOI D USED IN THE 
BLOCK 2 A » ?R* AND ? ANALYSIS OF THE 
HEAD-END WITH WEB. 
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PRESS PSIA 

PRNT - - 

PRTFLG 


P 

sa 

or 



PSA, 

PSB 


P ST PST PSIA 


DESCRIPTION 


PROPELLANT GAS PROPERTY TABLE INDEPENDENT 

variable. 

STORAGE ARRAY FOR EXPANDED INCREMENT DIVIDING 

plane printout variables. 

INDICATOR WHICH CONTROLS OUTPUT OF THE 
INTERNAL BALLISTICS MODULE DATA. 

PRTFLG = 0, MOTOR BALLISTIC DATA OUTPUT ONLY. 

= I, MOTOR BALLISTIC DATA AND INCREMENT 
DIVIDING PLANE DATA WILL BE OUTPUT. 

= 2, MOTOR BALLISTIC DATA AND GRAIN C.G. AND 
M.O.I. DATA WILL BE OUTPUT. 

= 3, MOTOR BALLISTIC DATA, INCREMENT 

DIVIDING PLANE DATA, AND GRAIN C.G 
AND M.O.I. DATA WILL BE OUTPUT. 

POINT IN PLANE A OR B DEFINING RADIAL BURNING 
FROM POINT PO (FIGURE 5*?) PS IS A 
FUNCTION OF TAU. IF TAU IS GREATER THAN OR 
EQUAL TO D03. THEN THE PLANE HAS BURNED OUT. 
IF TAU IS GREATER THAN D01 . THEN PS IS 
LOCATED ON THE LINE SEGMENT BETWEEN POINTS 
PI AND P3 • IF TAU IS LESS THAN OR 
EOUAL TO DOl. THFN PS IS LOCATED ON THE 
LINE SEGMENT BFTWFFN POINTS °0 AND PI. 

MAXIMUM START TRANSIENT PRESSURE. USED AS 
OPTION IN SUBROUTINE T I SUB TO TERMINATE 
START TRANSIENT CALCULATIONS. 
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UNIT 

OF SCR I P T I ON 

P 1 



POINT ON A PLANE USED IN THE BLOCK 1 
ANALYSIS OF THE HEAD-END WITH WEB. (F IGURE 
5.18) LOCATED IN THE Y-7 PLANE ALONG A LINE 
NO. MAL TO THE GRAIN PERIMETER AT TO. 




OR 




POINT ON THE PSUEDOELL I PSOI 0 USED IN the 
BLOCK ? A t ?B * AND 3 ANALYSIS OF THE 
HEAD-END WITH WEP. LOCATED AT THE DISTANCE 
DELL FROM POINT PO. 

P 2 


• 

point on a plane used in thf block i 

ANALYSIS OF THE HFAD-FND WI.'H WEB* 
LOCATED ON THE OUTER ELLIPSOID ALONG 
A LINE NORMAL TO THE INNER ELLIPSOID 

AT PO. (FIGURE 5.18) 

p 3 



POINT ON A PLANE USED IN THE BLOCK 1 
ANALYSIS OF THE HFAD-E ND WITH WEB. 
LOCATED IN THE Y-Z PLANE ON THE OUTER 
ELLIPSOID AND IN THE PLANE FORMED BY 
POINTS PO.Pj, AND P2 (FIGURE 5.18) 


R 

FT-LBF/LBM-R 0 

PROPELLANT GAS CONSTANT. 

R Amax 

RAMAX 

IN 

RADIAL DISTANCE FROM MOTOR AXIS TO EITHER- 

1. OUTSIDE LIMIT OF A SECTOR IN A ZONE 

2. OUTSIDE LIMIT OF AN INCREMENTAL AREA 
ISEE FIGURES 5.21 THRU 5.23 ) 

P Amln 

RAMIN 

IN 

RADIAL DISTANCE FROM MOTOR AXIS TO FJTHFR- 

1. IMS ID! LIMIT OF A SFCTOR IN A ZONE 

2. I\'SIDF I1MIT OF AM I MCPFMF NTM AREA 
( SEE ‘ ImHETS 5.21 THRU 5..'i | 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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PMHM 


JO 


MATH 

program 

UNIT 

DESCRIPTION 

SYMBOL 

SYMBOL 


r ao 

RAO 

IN 

RADIAL DISTANCE FROM MOTOR AXIS TO A POINT ON 
PERIMETER OF ANY SECTOR AT THICKNESS TAU AND 
LENGTH L=0 (FIGURE 5.21) DETERMINED 
IN SUBROUTINE AF SI JR. 

R al 

RAT 

IN 

RADIAL VECTOR FROM MOTOR AXIS TO A POINT 
IN A SECTOR FOR THE BLOCK 1 ANALYSIS OF 
THE HEAD-END WITH WEB, (FIGURES 5.19 
THROUGH 5.22) DETERMINED IN SUBROUTINE 
RASUBB. 

r ax 

RAX 

IN 

RADIAL DISTANCE FROM MOTOR AXIS TO A 
point ON PERIMETER OF ANY sector AT 
Thickness tau and length l=lx for 

THE STRAIGHT THROUGH GRAIN END SECTION 
ANALYSIS. (FIGURE 5.34) DETERMINED IN 
SUBROUTINE AESUR. 

r b 

RB 

IN/SEC 

PROPELLANT BURNING RATE OF ISOTROPIC 
PROPELLANT. 


RBFlAG 


BURNING RATE EQUATION CONTROL FLAG FOR AKRI2) 
AND A<R ( 36 ) • 

IF RBFLAG r 0.0. AKR ( 2 ) AND AKRI36) ARE INPUT 
IF RBFLAG r 1.0. AKR 1 2 ) AND AKRI36) =• ArRST 
AT STEADY STATE. 


RBHF 

IN/SEC 

ISOTROPIC PROPFLL ANT BURNING RATE OF UPSTREAM 
I NCRF M ENT dividing plane 

R Bslot 

RPSLOT 

IN/SEC 

RURNING RATF IN A SLOT. 


RBZTO 

IN/SEC 

increment dividing plane anisotropic BURN 

RATE FOR SECTOR. VALUE IS EQUAL TO SFCTOR 8 
ANISOTROPIC BURN RATE DURING MOTOR TAIl-OFF. 



D2-125266-1 R 


MATH 

SYMROL 

PROGRAM 

SYMROL 

UNIT 

R B7 

RR7 

IN/SEC 

R B8 

RB8 

IN/S EC 

r ei 

REI 

IN 

R E2 

RE2 

IN 

R f 

RF 

IN 


RE( 1 ) 
THRU 
RF ( 1 8 ) 

IN 

r .g 

RIG 

IN 


RMOIHD 

SLUG-SQ 


RMOIN 

SLUG-SQ 


ROE 1 


DESCRIPTION 


ANISOTROPIC PROPELLANT BURN.”;. RATE IN SECTOR 

7 DURING motor tail-off. 

ANISOTROPIC PROPELLANT BURNING RATE IN SECTOR 

8 DURING MOTOR TAlL-OFF. 

END SECTION CASE OPFNlNG RADIUS DETERMINED 
IN SUBROUTINE FNDCSB. I RN 1 ) AFT-HFAD 
(RH1) FORF-HEAD (FIGURE 5.31) 

RADIAL DISTANCE FROM MOTOR AXIS TO 
INTERSECTION OF ELLIPTIC AND CONIC 
SECTION DETERMINED IN SUBROUTINE ENDCSB. 

(FIGURE 5.31) 

OUTER RADIUS OF PROPELLANT. 

REFERENCE PLANE OUTSIDE RADIUS OF PROPELLANT. 


IGNITER OPFNlNG RADIUS. 


FORE-HEAD GEOMF TRY TABLE RECTANGULAR MOmFNI!. 
OF INERTIA (DEPENDENT VARIABLE). 


AFT-HEAD GEOMETRY TABLE RECTANGULAR MOMENT OF 
INERTIA (DEPENDENT VARIABLE. 


RADIUS OF CURVATURE OF POINT PJ DETFPvf n c D 
IN SUBROUTINE ROE ISP FOR THr BLOCK ?A 
ANAtYSTS OF HFAD-TND WITH WFB. 



D2-125266-1 R 


math 

SYMBOL 

PROGRAM 

symbol 

UNIT 

DFSCRIPTION 

R 03 

R03 

IN 

RADIAL DISTANCE FROM MOTOR AXIS TO ORIGIN 
OF R3 FILLFT RADIUS (FIGURE 5.4) 

DETERMINED IN SUBROUTINE PLNCNS. 

R 05 

R05 

IN 

RADIAL DISTANCE FROM MOTOR AXIS TO ORIGIN 
OF R5 FILLFT RAD I US. (F IGURE 5.4) 

DETFRMINFD IN SUBROUTINE PLNCNS. 

r 07 

R07 

IN 

RADIAL DJSTANCF FROM MOTOR AXIS TO ORIGIN 
OF R 7 FILLET RADIUS (FIGURE 5.4' 

DETERMINED IN SUBROUTINE PLNCNS. 

R 09 

R09 

IN 

RADIAL DISTANCE FROM MOTOR AXIS TC ORIGIN 
OF R9 FILLET RADIUS (FIGURE 5.4) 

DETERMINED IN SUBROUTINE PLNCNS 

R 01 1 

ROl 1 

IN 

RADIAL DISTANCE FROM MOTOR AXIS TO ORIGIN 
OF R 1 1 FILLET RADIUS (FIGURE 5.4) 

DFTERMINFD IN SUBROUT INF PLNCNS. 

R P1 

thru 

R P1 3 

RP1 
THRU 
RP 1 3 

IN 

RADIAL DISTANCES DEFINING SECTOR BOUNDARIES 
FOR RLOCK. ?B ANALYSIS OF HEAD-END WITH 
WEB. DETERMINED IN SUBROUTINE SCTCR1 

(FIGURE 5.27) 

R slotA 

RSLOTA 

IN 

RADIUS OF CASE AT SLOT AFT INTERFACE 

LOCATION AT PRIOR TIME INCREMENT. USED IN SR 
SLOT TO OBTAIN SLOT VOLUME. 

R slotF 

RSLOTF 

IN 

RADIUS OF CASE AT SLOT FORWARD INTERFACE 
LOCATION AT PRIOR TIME I NCRFMENT • USED IN 
SUBROUTINE SLOT TO OBTAIN SLOT VOLUME. 



t 
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MATH PROGRAM UNIT 

SYMBOL SYMBOL 

p. t RT IN 



f 


I 

4 

I 

I 


DESCRIPTION 


RADIUS OF CURVATURE OF PFRImETER IN ANY ZONE 
AT THICKNESS TAU. POSITIVE WHEN CENTER 
LIES INSIDE ZONF. NEGATIVE when center lies 
OUTSIDE ZONE. AMD ZERO WHEN PCR IMFTEP 
HAS NO CURVATURE ( FIGURES 5.20 THRU 5.2? > 
DETERMINED IN SUBROUTINE ASESUB. 

RADIUS OF CURVATURE FROM MOTOR AXIS TO 
INNER STAR POINT. (FIGURE 5.3) 

DETERMINED IN SUBROUTINE PLNCNS. 

RADIUS OF INNER GRAIN POINT OF REFERENCE 
PLANE. 


FILLFT RADIUS RETWEEN SLOPES LA AND LB FOR A 
REFERENCE PLANE. 


FILLET RADIUS BETWEEN SLOPES LB AND LC FOR A 
REFERENCE PLANE. 


FILLET RADIUS BETWEEN SLOPE LC AND THE WEB 
FOR A REFERENCE PLANE. 


FILLET RADIUS BETWEEN THE WEB AND SLOPE LD 
FOR A REFERENCE PLANE. 


FILLET RADIUS BETWEEN SLOPES LD AND LE FOR A 
REFERENCE PLANE. 
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MATH PROGRAM UNIT 

SYMBOL SYMqOL 

R a R8( I ) IN 

THRU 
R8( 18) 

r 9 RR IN 

SCUR IN 


sltflg 




DESCRIPTION 


FILLET RADIUS BETWEEN FORKS OF rORKED WAGON 
WHEEL FOR A REFERENCE PLANE. 


RADIUS OF CURVATURE FROM MOTOR AXIS TO 
OUTER STAR POINT (FIGURE 5.3) 
determined IN subroutine PLNCNS. 

CURRENT LOCATION OF THE SLOT INTERFACE FROM 
THE FORWARD TANGENT PLANE. SCUR(IIS*1> IS THE 
FORWARD INTERFACE AND SCUR ( I I S 1 2 ) IS THE AFT 
INTERFACF LOCATION. 

PROGRAM CONTROL FLAG TO INDICATE STATUS OF 
THE current Slot with RESPECT TO The CURRENT 
INCREMENT DIVIDING PLANF. 

1 - THE current increment DIVIDING plane 

AND/OR THE Y REFERENCE PLANE ARE 
DOWNSTREAM OF THE CURRENT SLOT 
FORWARD INTERFACE. THE PROGRAM WILL 
SFT THE WORKING INCREMENT DIVIDING 
PLANE TO THE SLOT FORWARD INTERFACE 
AND CHFCK THE LOCATION OF THF Y 
RFFFRFNCF PLANE. 

2 - THE PROGRAM IS SEARCHING FOR THE Y 

REFERENCE PLANE THAT IS LOCATED 
DOWNSTREAM OF THE CURRENT SLOT 
FORWARD INTERFACF. 

3*4 - THE PROGRAM IS SEARCHING FOR THE Y 
REFERENCE PLANE THAT IS LOCATED 
DOWNSTREAM OF THE CURRENT SLOT AFT 

interface. 

The X AND Y REFFRFNCF plants HAVE 
BEEN UPDATFD FOR THE ATT SLOT 
DF TERM INF THF SLOT N‘ASS RA|ANCF, 


5 
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MATH PROGRAM 
SYMBOL SYMBOL 


UNIT 


STDYST 


STFLAG 


SA( I ) IN 

THRU 

SA( 18) 

SB( I ) IN 

THRU 

SB( 18) 

T DEG RANKIN 

TAUAKR IN 

taueo IN 


t £1 tauei IN 


tauhd IN 


\ 


I 

I 


I 

I 

! 

DESCRIPTION 


control flag to indicate steady state. 


PROGRAM CONTROL FLAG FOR START TRANSIENT 
CALCULATIONS. IF STFLAG = 1.0« PERFORM 
TRANSIENT CALCULAT IONS. 


SLOT FORWARD INTERFACE LOCATION FROM FORWARD 

tangent plane. 

STORED IN SCUR( I IS, I ) . 

SLOT AFT INTERFACE LOCATION FROM FORWARD 
TANGENT plane. 

STORED IN SCUR( I IS, 2). 

COMBUSTION GAS STATIC TEMPERATURE. 

ANISOTROPIC BURN RATE COEFFICIENT TAHLF 
INDEPENDENT VARIABLE. 


MAXIMUM BURNING DISTANCE IN STRAIGHT 
THROUGH GRAIN END SECTION (FIGURE 5.30) 
DETERMINED I N SUBROUTINE ENDCSB 

MAXIMUM BURNING DISTANCE IN STRAIGHT 
THROUGH GRAIN FNO SECTION CONIC SECTION. 
(FIGURE 5.30) DETERMINED IN SUBROUTINE 
ENDCSR. 

FORE-HEAD GEOMETRY TABLE INDEPENDENT VARIABLE 
(DISTANCE RURNFD ) . 



DS-125286-1 R 


MATH 

SYMBOL 

PROGRAM 

symrol 

UNIT 

DESCRIPTION 

T 

max 

TAUM 

IN 

MAXIMUM BURNING DISTANCE FOR A REFERENCE 
PLANE. DETERMINED IN SUBROUTINE ENDCSP FROM 
THF GEOMETRY PLANF CONSTANTS. 


TAUN 

IN 

AFT-HEAD GF OME TRY TABLE lNDft>FNDENT VARIABLE 
(DISTANCE RURNFD ) . 


TAUPL( 1 ) 
THRU 

TAUPL( 18) 

IN 

REFERENCE PLANE GEOMETRY TABLE DISTANCE 
BURNED (INDEPENDENT VARIABLE). 

t to 

tauto 

IN 

ANISOTROPIC PROPELl ANT THICKNESS. CALCULATED 
AT END OF START TRANSIENT IN SUBROUTINE 
segsub. EOUAL TO TAUAKR (NTME). 


tautov 

IN 

temporary value for tauto in subroutines 

LPDAPS AND AFPSUB. 


tautoz 

IN 

ANISOTROPIC PROPELLANT THICKNESS OVER INERT 
SLIVER IN SECTORS 6 AND 7. 


TAUW( I ) 
THRU 
TAUW( 18) 

IN 

REFERENCE PLANE WEB THICKNESS. 


TAUWDP 

IN 

INCREMENT DIVIDING PLANE WEB THICKNESS. 



D2-125286-1 R 
244 


M A T H PROGRAM 

SYMBOL SYMBOL 


UNIT 


TAUZTO IN 


TCOMB DEG RANKIN 


TOMAX IN 


e 


o 


THO 


RADIANS 


®oA THO(I) DEGREES 

thru THRU 

9 . ( THO( 18) 



THR 


RADIANS 


DESCRIPTION 


total distance burned of anisotropic 

PROPELLANT in SECTORS 7 AND 8 DURING MOTOR 

tail-off. 

TABULAR INPUT VALUE OF COMBUSTION TEMPERATURE 
OE PROPELLANT GAS (DEPENDENT VARIABLE). 


MAXIMUM BURNING DISTANCE IN THE FORE-HEAD 
WITH A HEAD-END WEB. DETERMINED IN SUBROUTINE 

sci during the initial integration for the 

BURNING SURFACE AREA IN THE BLOCK 1 ANALYSIS. 
EQUAL IN VALUE TO TAUMA OR D03 FOR AN 
INTEGRATION PLANE. 


CENTRAL ANGLE OF SLOTTED- CONE GRAIN 
CONFIGURATION TO DEFINE LOCATION OF ONE-HALF 
OF SLOT IN ONE GRAIN CROSS SECTION 
SYMMETRICAL PART. 

REFERENCE PLANE SLOTTED-CONE GRAIN 
CONFIGURATION CENTRAL ANGLE. 


ANGLE RFTWFEN z-axis and A radial 
VECTOR FROM moTOP AXIS TO A POINT 
ON A S c CTOP. DF T F Rm J nfd IN subroutine 
T ill' l AR (FIGURE 5.21 ) 
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MATH 

SYMBOL 

PROGRAM 

symbol 

UNIT 

DESCRIPTION 

9 R« 

T HR I 

RADIANS 

ANGLE BETWEEN Z-AXIS AND A RADIAL VECTOR 
FROM MOTOR AXIS TO A POINT ON A SECTOR. 
DETERMINED IN SUBROUTINE XRTHR (FIGURE 5.28) 

®R0 

THRO 

IN 

ANGLE BETWEEN Z-AXIS AND RADIAL VECTOR RAO. 

9 slv 

THSlV 

DEGREES 

HALF ANGLE OF INERT SLIVER SECTOR OF 

increment dividing plane in subroutine segsub 

0 slvA 

thru 

e slvK 

THSLV ( 1 ) 
THRU 

THSLV ( 18) 

DEGREES 

REFERENCE FRAME INERT SlP' R SECTOR HALF 

angle. 


thSlw 

DEGREES 

increment dividing plane inert sliver sector 

HALF ANGLE IN SUBROUTINE AFPSUB. 


THSLV X 

and 

THSLVY 

DEGREES 

REFERENCE FRAME SECTOR HALF ANGLE IN 
SUBROUTINE SEGSUB. 

9 1 

thi 

RADIANS 

GEOMETRY CONSTANT DETERMINED IN SUBROUTINE 
PLNCNS (FIGURE 5.3) 

9 2 

TH2 

RADIANS 

GEOMETRY CONSTANT DETERMINED IN SUBROUT I N 
PLNCNS. (FIGURE 5.3) 

0 3 

TH3 

RADIANS 

GEOMETRY CONSTANT DETERMINED IN SUBROUTINE 
PLNCNS. (FIGURE 5.3) 

9 4 

TH4 

RADIANS 

GEOMETRY CONSTANT DETERMINED IN SUBROUTINE 
PLNCNS. (FIGURE 5.3) 


TIMAX 

SEC 

MAXIMUM VALUE OF TIME. IF TIMF IS GREATER 
THAN OR' EOUAL TO TIMAX. PROGRAM EXECUTION 


WILL TFRMINATE FOR THE CASF. 
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MATH PROGRAM UNIT 

SYMBOL SYMBOL 

TIMEAC SEC 

TIMEPH SEC 

TIMFPS SEC 

T Q TO DEG RANKIN 

toflag - 

TPR 

T slotA TSL0TA IN 

T slotF TSL0TF ,N 


DESCRIPTION 


ACCELERATION-TIME CURVE INDEPENDENT VARIABLE* 


HEAD END PRESSURE CURVE INDEPENDENT VARIABLE* 


MEASURED CASF STRAIN DATA TABLE INDEPENDENT 

variable. 


PROPELLANT GAS COMBUSTION TEMPERATURE. 


PROGRAM CONTROL FLAG TO SIGNAL SUBROUTINE 
RBSUB TO COMPUTE BURN RATE FROM ANISOTROPIC 
BURN RATE COEFFICIENT TABLE. SET IN 
SUBROUTINE SEGSUB TO COMPUTE BURN RATF OVER 
INERT SLIVFR IN SECTORS 6 AND 7 AND SET IN 
SUBROUTINE MNCHNA TO COMPUTE BURN RATF IN 
FORE AND AFT DOMES DURING TAIl-OFF. 

PRESSURE RATIO OF NOZZLE TOTAL PRESURE TO 
HEAD END TOTAL PRESSURE. USED IN SUBROUTINE 
RBSTSB TO DETERMINE FIRST ITERATION VALUE OF 
AKRST FOR EACH TIME INCREMENT. 


ONE PAST TIME VALUE OF LATERAL DISTANCE 
BURNED IN A SLOT FORWARD INTERFACE. USED IN 
CONJUNCTION WITH SKA TO DEFINE SLOT INTERFACE 
LOCATION AND TO DFTFRmInF DV/DT OF A SLOT. 

ONE PAST TIME VALUE OF LATERAL DISTANCE 
BURNED IN A SLOT FORWARD INTERFACE. 
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MATH PROGRAM 

SYMBOL SYMBOL 

UNIT 

DESCRIPTION 

TSLVR 

IN 

INERT SLIVER RADIUS FROM R 5 FILLET TO INERT 
SLIVER IN SUBROUTINE SEGSUB. 

TSLVR(I) 

THRU 

TSLVR( 18 ) 

IN 

DISTANCE FROM CORE INTERFACE TO INFRT SLIVER 
FOR A REFERENCE PLANE. 

TSLVRN 

IN 

SLIVER RADIUS OF REFERENCE PLANE ADJACENT TO 
NOZZLE SECTION. DETERMINED BY SUBROUTINE 
SEGSUB FOR USE IN SUBROUTINE T I SUB TO LIMIT 
TAUZTO(NI) TO SLIVER RADIUS. 

TSLVRV 

IN 

INERT SLIVER RADIUS OF INCREMENT DIVIDING 
PLANE IN SUBROUTINE AFPSUB. 

TSLVRX 

IN 

INERT SLIVER RADIUS OE CURRENT REFERENCE 
PLANE IN SUBROUTINE SEGSUB. 

\ 

TSLVRY 

IN 

INERT SLIVER RADIUS OF NEXT REFERENCE PLANE 
IN SUBROUTINE SEGSUB. 

TST 

SEC 

START TIME, USED AS OPTION IN SUBROUTINE 
TISUB TO TERMINATE START TRANSIENT INTERVAL. 

TV6PR 

IN 

REFERENCE PLANE SLOTTED-CONE GRAIN 
CONFIGURATION GEOMETRY CONSTANT. DISTANCE 
BETWEEN SIDE LC AND CASE WALL MEASURED ALONG 
A PERPENDICULAR LINE TO LC AT THE 
INTERSECTION OF LC WITH RADIUS RS. 

TV 7 PR 

IN 

REFERENCE PLANE SLOTTED-CONE GRAIN 


CONFIGURATION GEOMETRY CONSTANT. DISTANCE 
ALONG LINE TV6PR WHERE SIDE LC DISAPPEARS AS 
A RESULT OF PROGRESSION OF BURNING SURFACE 
OF SI 0 T rr D-CONF . 


ft 
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PROGRAM 

SYMBOL 

UNIT 

T 2max 

• 

• 

• 

T l2max 

T2M 
T AM 
T5M 
T6M 
T7M 
TQM 
T ] OM 
T 1 ?m 

IN 


U 

FT/SEC 


V 

CU IN 

V CE 

VCE 

CU IN 


vchinp 

CU IN 


VCNINP 

CU IN 

V EH 

VEH 

CU IN 


V fH0 

VFHO 

cu 

IN 

/ 

rH 

VFHPR 

cu 

IN 


VFI 

cu 

IN 


( 


DESCRIPTION 


MAXIMUM BURNING DISTANCE - FOR A SECTOR 
DETERMINED IN SUBROUTINE PLNCNS 

(FIGURE 5.3) 


VELOCITY OF GAS IN CONTROL VOLUME. 

PRESENT TIME GAS VOLUME OF INCREMENT DIVIDING 
SECTION. USED IN SUBROUTINE AIBST TO COMPUTE 
PD. 

VOLUME OF CASE IN REFERENCE END SECTION 
DETERMINED IN SUBROUTINE ENDCSB. 

VOLUME OF FORE-HEAD CASE. 


VOLUME OF AFT-HEAD CASE. 


initial volume of propellant BETWEEN TWO 
oblate spheroids, determined in subroutine 

VOLSUB FOR THE BLOCK 3 ANALYSIS OF THE 
HEAD-END WITH WEB. 

initial propellant volume in fore-head. 


previous time value of hf ad-end fufl volumf. 

VOLUMF OF FUEL IN I NCRFMENT DIVIDING PLAL . 
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SYMBOL 
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SYMBOL 

UNIT 

DESCRIPTION 

V fNO 

VFNO 

cu 

IN 

initial propellant volume in aft-hfad. 


VOLCH 

CU 

IN 

TOTAL HF AD END VOLUME CONSUMED. 


VOLCHO 

CU 

IN 

PREVIOUS TIME VALUE OF HEAD END VOLUME 
CONSUMED. 


VOLCN 

cu 

IN 

total nozzle end volume consumed. 


VOLCNO 

cu 

IN 

PREVIOUS VALUE OF NOZZLE-END TOTAL VOLUME 
CONSUMED. 


VPH 

cu 

IN 

FREE GAS VOLUME OF HEAD-END SECTION. 


VPN 

cu 

IN 

FREE GAS VOLUME OF NOZZLE END SECTION. 

v' 

VPR 

CU 

IN 

PREVIOUS TIME VALUE of increment dividing 
SECTION GAS VOLUME. 

V slvr 

VSLVR 

cu 

IN 

VOLUME OF INERT SLIVER. 

• 

U 

D 

WOOTO 

LB/SEC 

TRANSIENT DISCHARGE WEIGHT FLOW FROM 
INCREMENT DIVIDING SECTION. 

• 

W 

Dslot 

WDSLOT 

LB/SEC 

DISCHARGE MASS FLOW OF A SLOT. 

w 

" 1 slot 

WlSLOT 

LB/SEC 

INLET MASS FLOW OF A SLOT. 


xcghd 

I N 


FORE-HEAD GEOMETRY TABLE CENTER OF GRAVITY 
LOCATION FROM FORWARD TANGENT PLANE 
(DEPENDENT VARIABLE). 


xcgn 

IN 


AFT-HEAD GEOMETRY TABLE CENTER OF GRAVITY 


LOCA I I' 1 *’ FROM AFT TANGfNT PLANT <DfPfN:*‘NT 
V A I.* 1 A i 
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PROGRAM 

SYMBOL 
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DESCRIPTION 

x 03 

X03 

IN 

X-COORDINATE 0^ Rj FILLET RADIUS (FIGURE 
5.4) DETERMINED IN SUBROUTINE PLNCNS. 

X 0 5 

X05 

IN 

X-COORDINATE OF R 5 FILLET RADIUS (FIGURE 
5.4) DETERMINED IN SUBROUTINE PLNCNS. 

X 07 

X07 

IN 

X-COORDINATE OF R 7 FILLET RADIUS (FIGURE 
5.4) DETERMINED IN SUBROUTINE PLNCNS. 

X 

o 

VO 

X09 

IN 

X-COORDINATE OF Rg FILLET RADIUS (FIGURE 
5.4) DETERMINED IN SUBROUTINE PLNCNS. 

x oil 

X011 

IN 

X-COORDINATE OF R| | FILLET RADIUS (FIGURE 
5.4) DETERMINED IN SUBROUTINE PLNCNS. 

X R 

XR 

IN 

X-COORDINATE OF A POINT ON THE PERIMETER OF A 
SECTOR. DETFRM I NED IN SUBROUTINE XRSI'P ^OR 
THE END SECTION STRAIGHT THROUGH GRAIN 

analysis. 

X ra 


IN 

X-COORDINATE OF A POINT ON THE PERIMETER 
OF A SECTOR FOR THE BLOCK 1 ANALYSIS OF THE 
HEAD-END WITH WEB. 

DETERMINED IN SUBROUTINE XRSUBB. 

X rl 

XRI 

IN 

X-COORDINATE OF A POINT ON THE PERIMETER OF 
A SECTOR FOR THE BLOCK 2B ANALYSIS OF THE 
HEAD-FND WITH WEB (FIGURE 5.28) 

DETERMINED IN SUBROUT IN XRSUBB. 
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MATH PROGRAM I'NIT DESCRIPTION 

SYMBOL SYMBOL 


X Rmln 


IN 

X 

JO 

o 

XRO 

IN 

X RX 


IN 

V 

X45 

IN 

*76 

X76 

IN 

Y Amax 


IN 

Y Amln 


IN 

Y A0 


IN 

y ax 


IN 


X-COORDINATE OF A POINT ON THE PERIMETER OF 
ANY SECTOR AT THICKNESS TAU AND 
RA = RAMIN (FIGURE 5.34) 

X-COORDINATE OF THE POINT ON THE PERIMETER OF 
ANY SFCTOR AT THICKNESS TAU AND 
RA = RAO. (FIGURE 5.34) 

X-COORDINATE OF A POINT ON THE PERIMETER OF 
ANY SECTOR AT THICKNESS TAU AND 
RA = RAX • (FIGURE 5.34) 

GEOMETRY CONSTANT WHICH DEFINES THE 
X-COORDINATE OF THE POINT LOCATED ALONG LINE 
Tf, MAx AT THE DISTANCE R5 FROM SIDE LC 
(FIGURE 5.3) DETERMINED IN SUBROUTINE 

PLNCNS. 

GEOMETRY CONSTANT WHICH DEFINES THE 
X-COORDINATE OF THE POINT LOCATED ALONG LINE 
T 1 2 MAX AT THF DISTANCE R6 FROM SIDE LD 
(FIGURE 5.3) DETERMINED IN SUBROUTINE PLNCNS. 


Y-COORDINATE 

(FIGURE 5.34) 

CORRESPONDING 

TO 

XRMAX 

Y-COORDINATE 

(FIGURE 5.34) 

CORRESPONDING 

TO 

XRMIN 

Y-COORDINATE 

(FIGURE 5.34) 

CORRESPONDING 

TO 

XRO 

Y-COORDINATE 

(FIGURE 5.34) 

CORRESPONDING 

TO 

XRX 
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UNIT 


f N0 

yno 

IN 

< 

o 

>• 

YOA 

IN 

y ob 

YOB 

IN 



IN 

Y 03 

YOJ 

IN 

Y 05 

Y05 

IN 

o 

>- 

Y07 

IN 

Y 09 

Y09 

IN 

Y 011 

YOU 

IN 

V 

YA5 

IN 


DESCRIPTION 


Y-INTERCEPT OF LINE NORMAL TO INNER ELLIPSE 
AT RADIUS RIG WHICH IS USED TO DETERMINE 
ANGLE BETWEEN Y-AXIS *ND NORMAL LINE iN 
SUBROUTINE AIGSUR (FICuRE 5.26) 

Y-COORDINATE OF THE PO POINT FOR PLANE A. 

Y-COORDINATE OF THE PO POINT FOR PLANE B. 

Y-COORDINATE OF ORIGIN OF CIRCULAR ARC 
USED IN CALCULATION OF AFT-END SECTOR AREA 
IN SUPROUTJNF ASFSUR. 

Y-COORDINATE OF R3 FILLET RADIUS (FIGURE 

5.4) DETERMINED IN SUBROUTINE PLNCNS 

Y-COORDINATE OF R5 FILLET RADIUS ( FIGURE 

5.4) DETERMINED IN SUBROUTINE PLNCNS. 

Y-COORDINATE OF R7 FILLET RADIUS ( FIGURE 

5.4) DETERMINED IN SUBROUTINE PLNCNS. 

Y-COORDINATE OF R9 FILLET RADIUS ( FIGURE 

5.4) DETERMINED IN SUBROUTINE PLNCNS. 

Y-COORDINATE OF Rll FILLET RADIUS ( FIGURE 

5.4) DETERMINFD IN SUBROUTINE PLNCNS. 

GEOMETRY CONSTANT WHICH DEFINES THE 
Y-COORDINATE OF THE POINT LOCATED ALONG LINE 
T 6 MAX AT THE DISTANCE R5 FROM SIDF LC 
(FIGURE 5.4) DETERMINED IN SUBROUTINE 
PLNCNS. 
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HATH PROGRAM unit 
SYMBOL SYMBOL 

Y ?6 Y76 I N 

ZCALCII I IN 
Z laT ZlAT IN 

“v RADIANS 




DESCRIPTION 


1 wnn_n UtrlNtS THE 

COORDINATE OF the POINT LOCATED ALONG THE 
LINE T 1 2 MAX AT THE DISTANCE R6 FROM SIDE LD 
FIGURE 5.4) DETERMINED IN SUBROUTINE 
PLNCNS. 

STORAGE ARRAY OF INCREMENT DIVIDING PLANE 
LOCATIONS* 


ID DISTANCE FROM CENTER OF ELLIPSE TO POINT 
ON OUTER ELLIPSE (FIGURE 5.19) 

(2) CODE USED IN SUBROUTINE P3SUB • 


angle between bisector of ppopellant tip 

AND STRAIGHT SIDE SECTOR USED IN 
CALCULATION OF AFT-END SECTOR AREA IN 

subroutine asesub. 



USE FOR TYPEWRITTEN MATERIAL ONLY 





7.0 RESULTS 


The major, mod f fleet Ions to the original Thlokol Chemical 
Corporation (TCC) program made by Boeing were done during the 
H I BEX program. HIBEX standi for "High C Boost Exper Imant 
Because of Its extreme flight environment and a new stapled 
high burning rate propellant, It was not known If the^lnternal 
ballistics of the HIBEX motor would be affected, l.fi., Ignition 
transient Interval, maximum chamber pressure, motor burn time, 
and shape of the chamber pressure-time trace. Accordingly, 
program modifications were made as discussed In Section 1.1. 

Resulting predictions using these modifications were compared 
with measured results. The dimensionless fore-head pressure- 
time traces are shown In Figure 7*1. The prediction Indicates 
good agreement with the results of three full scale motor firings. 
During the H i BEX program, various grain configurations, propellant 
formulations, and nozzle throat sizes were used. The three 
firings for which data are shown In Figure 7*1 are from Identical 
motor configurations. 

Security elasslf leatlon of the HIBEX program prohibits the 
discussion of specific numerical results in this unclassified 
report. Initial analysis that was conducted Is reported In 
Reference 4, and an updated analysis using an anisotropic burping 
rate model developed from small scale "Forty-Pound Charge" (FPC) 
motor firings to predict the traces shown in Figure 7*1 is 
discussed In Reference 5« 

Figure 7*2 shows the Influence of Internal gas flow along the 
propellant grain and the propellant burning rate model on 
ballistic predictions. Curve A Is based on steady internal 
flow and Isotropic burning. Curve 3 Is based on non-steady 
Internal flow and Isotropic burning. Curve C represents use of 
the complete program capability except for an accelerating 
reference system. *t Is based on non-steady, Internal .flow and 
anisotropic burning during ignition and talloff. The method of 
solution for these and other program options are discussed in 
Section 8.1. 
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